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PREFACE  AM)  SUMMARY 


PLANET  (Planned  Logistics  Analysis  and  Evaluation  Technique)  is 
a  series  of  four  computer  simulation  models  designed  to  examine  the 
hardware'configuration/operations/logistii.0  cipport  interactions  of  a 
variety  of  weapon  systems  in  a  single  or  multibase  environment.  Its 
purpose  is  to  help  the  manager  gain  an  understanding  of  the  operation 
of  his  system  and  find  a  rationale  for  allocating  resources  effectively 
and  efficiently. 

The  PLANET  complex  comprises  five  comput'  programs: 

1)  The  Availability  and  Base  Cadre  Simulator  (ABC)  furnishes  the 
framework  for  the  logistics  resources  assigned  to  a  support  base  or 
bases  . 

2)  The  Bench  Repair  Simulator  (BR)  processes  the  reparables 
through  the  base  repair  shops  or  diverts  them  to  a  depot,  thus  converting 
the  reparables  to  servi ceables  . 

3)  The  Depot  Transportation  Simulator  (DT)  processes  the  movement 
of  reparables  from  the  base(s)  to  the  depot(s)  or  factory  and  return. 

4)  Th '  Depot  Repair  and  Overhaul  Simulator  (DR&O)  simulates  the 
functions  in  a  repair  or  overhaul  facility. 

5)  The  Reports  and  Analysis  Library  consists  of  twelve  different 
output  programs. 

The  simulators  can  be  used  separately  to  examine  specific  areas 
of  the  logistics  system,  or  conjointly  to  simulate  the  complete  weapon- 
system  operation  from  the  site  or  point  of  demand  throu  Bh  to  the  depot . 

The  Reports  and  Analysis  Library  described  here  contains  the  twelve 
report  programs  with  operating  instructions.  All  reports  are  designed 
for  use  by  managerial  personnel.  The  manager  may  select  from  the 
library  tVst  programs  best  suited  for  analysis  oi  his  particu’ar 
problem.  Even  though  the  output  programs  cover  a  wide  spectrum  of 
problem  areas,  it  c«n  be  anticipated  thut  additional  outputs  will  in 
some  cases  be  required.  Either  the  output  programs  can  be  modified 
to  incorporate  any  additional  data  required,  or  new  programs  can  be 
written  with  relative  ease 
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Although  PLANET  la  designed  a«  an  advanced  planning  tool,  it  can 
be  us 'd  to  assess  periodically  whether  the  logistics  support  planned 
will  maintain  a  system  or  equipment  effectively  and  economically. 

These  assessments  combine  the  relevant  reliability,  maintainability, 
and  performance  parameters  for  the  weapon  system.  This  enables  th*. 
systematic  development  of  .n  integrated  logistics  support  plan  for 
systems  and  equipment  at  all  levels  of  maintenance  for  its  programmed 
life  cycle. 

While  PLANET  is  programmed  in  SIMSCRIPT,  the  user  need  not  be  a 
skilled  SIMSCRIPT  programmer  to  conduct  a  simulation.  We  have  included 
the  necessary  step-by-step  instructions  as  well  as  the  necessary 
SIMSCRIPT  instructions  to  permit  managers  to  assemble  the  data  in  a 
form  acceptable  to  the  models. 
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FOREWORD 


In  general,  computer  simulation  is  a  way  of  using  a  computer  to 
produce  a  reasonable  likeness  of  the  behavior  of  a  system  under  study. 
Simulation  models  are  only  representations  of  reality.  Of  i.ecess  ity, 
the  likeness  of  the  system  under  study  is  "scaled  down"  to  manageable 
size  for  the  computer.  Simulation  models,  therefore,  are  based  on  the 
designer's  conc.pt  of  what  the  key  elements  of  the  system  are,  and  how 
they  operate  and  interact  on  the  syatem. 

This  being  so,  one  cannot  say  a  priori  that  one  model  is  better 
than  another.  A  manager  should  always  strive  for  the  lowest-cost  model 
that  suits  his  purpose.  Since  computer  simulation  models  generally  are 
explanatory,  the  analyst  must  first  determine  if  a  particular  model 
sufficiently  represents  his  system.  In  short,  the  analyst  must  first 
understand  the  model  and  then  strike  a  compromise  between  realism  and 
simplicity. 

The  si.ze  and  complexity  of  the  problem  that  the  system  manager 
would  like  to  examine  increase  as  a  function  of  the  interrelationships 
to  be  considered.  It  is  very  difficult,  fcr  example,  to  visualise  the 
impact  of  a  change  in  sortie  rate  on  the  personnel  requirements  in  a 
depot  overhaul  facility,  even  the  effect  of  a  change  in  reliability/ 
maintainability  parameters  on  the  operational  capability  if  support 
shortages  exist  at  the  higher  echelons  of  maintenance.  In  short,  while 
problems  can  be  bounded  and  scaled  down  to  manageable  size,  it  is  often 
desirable  to  view  the  analysis  in  a  broader  context  to  objerve  more  of 
the  interactions. 

PLANET  was  developed  as  a  logistics  prediction  and  estimating  tool. 
Its  purpose  is  to  help  the  manager  gain  an  understanding  of  the  operation 
of  his  system  and  find  a  rationale  for  allocating  resources  efficiently. 
Real  world  observations  of  a  system  help  serve  the  same  end,  but  simu¬ 
lations  permit  more  varied,  controlled  and  complete  ranges  of  experience, 
usually  at  far  lets  cost  and  much  earlier  in  the  life  of  the  weajon 
system . 

Coincident  with  the  PLANET  development  program,  DOD  Directive 
4 1 00 . 3 5  dated  June  19,  1964  was  issued.  The  following  is  quoted  from 
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that  directive: 

The  primary  objective  of  this  Directive  is  to  assure 
that  the  development  of  effective  logistic  support  for 
systems  and  equipments  is  systematically  planned,  acquired, 
and  managed  as  an  integrated  whole  (by  interlocking  the 
elements  of  logistic  support)  to  obtain  maximum  material 
readiness  and  optimum  cost  effectiveness. 

Integrated  Logistic  Support  -  Integrated  Logistic 
support  is  a  composite  of  the  elements  necessary  to  assure 
the  effective  and  economical  support  of  a  system  or  equip¬ 
ment  at  all  levels  of  maintenance  for  its  programmed  life¬ 
cycle.  It  is  characterised  by  the  harmony  and  coherence 
obtained  between  each  of  its  elements  and  levels  of 
maintenance . 

We  believe  that  simulation  models  such  as  PLANET  can  be  used  to 
develop  an  "Integrated  Logistics  Support"  plan  for  a  spectrum  of  weapon 

systems . 

The  history  of  the  development  of  PI.ANET  might  be  of  interest  . 
Prior  to  the  actual  coding  of  the  programs,  approximately  one  man-year 
was  devoted  to  t ne  problem  of  how  best  to  structure  the  models.  It 
was  obvious  that  the  bulk  of  the  computers  envisioned  by  the  projected 
release  date  (1966)  would  have  memories  of  32K  words.  Although  larger 
computers  were  being  p.oposed  at  the  tine,  we  had  no  guarantee  that 
very  large  computers  (greater  than  96K)  would  be  readily  available  to 
prospective  users.  Therefore  the  problem  of  how  to  structure  the  pro¬ 
grams  to  be  useful,  regardless  of  computer  size  had  to  be  faced. 

In  addition,  we  wanted  to  structure  the  simulation  programs  so 
that  the  Internal  logic  of  the  simulator  could  be  modified  for  special 
applications  with  relative  ease.  This  required  that  the  family  of 
weapon  systems  that  the  model  is  designed  to  imitate  be  as  broad  as 
possible  while  the  program  itself  be  segmented  into  is  many  small 
subroutines  as  practicable. 

The  result  of  the  planning  phase  was  that  the  simulators  would 
be  bounded  in  a  logical  order  of  Fllghtline  or  site,  Bass,  Depot  and 
a  link  between  Base  and  Depot,  bach  segment  of  the  total  simulation 
package  must  be  capable  of  being  used  on  a  machine  with  the  limited 
capacity  of  32K.  In  sons  instances,  this  constraint  limited  the  amount 
of  detail  we  would  have  liksd  to  include.  In  addition,  since  there 
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A^pears  to  be  a  trend  toward  the  procurement  of  larger  (larger  than 
32K)  machines,  the  models  should  be  easily  assembled  into  larger,  more 
detailed  simulation  programs. 

After  many  months  of  examining  logistic  systems  and  plans,  a 
commonality  among  them  appeared  to  emerge  that  indicated  the  feasibility 
of  such  an  undertaking.  Although  in  many  instances  (particularly  n 
the  comparison  of  aircraft  and  missile  logistic  syotems)  the  jargon 
used  to  describe  specific  functions  was  completely  different,  the 
functions  to  be  performed  were  similar.  Even  though  the  operating 
parameters  for  the  simulation  would  be  different,  this  meant  that  the 
same  computer  program  logic  could  be  used  if  the  real  world  jargon 
could  be  defined  into  common  terras. 

We  therefore  have  tried  to  use,  as  much  as  possible,  the  functional 
description  of  the  various  logistics  actions  and  activities,  and  hope 
that  users  will  be  able  to  translate  the  Jargon  into  functional  terms 
for  use  in  the  simulation. 

Coding  of  the  programs  began  in  January  1964.  By  October  1964 
the  first  (ABC  simulator)  of  the  four  simulators  was  available  for 
debugging  and  proof  teating. 

For  each  simulator,  debugging  consists  of  tracing  (using  trace 
routines  coded  into  the  program'  each  event  through  its  cycle  during 
a  simulation  run. 

The  proof  testing  consisted  of  inputting  a  set  of  empirical  data, 
computing  each  value  Chat  wai  to  be  generated  by  the  computer  by  menu.  1 
or  analytical  method*,  then  comparing  the  empirical  inputs  with  the 
actual  experience  that  occurred  in  the  real  world.  This  haa  been  done 
io r  both  missile  and  airciaft  data  sets. 

By  March  1967,  all  modela  were  coded  and  proof  testing  of  the  last 
was  nearing  completion.  There  remained  only  the  marriage  of  the  four 
programs  to  ensure  that  they  would  in  fact  work  together. 

In  total  approximately  nine  man-year*  of  coding  effort  waa  uatd 
to  code,  debug  and  proof  teat  the  models,  and  approximately  200  hours 
of  computer  operating  time  (this  is  in  addition  to  the  one  man-year 
previously  mentioned).  It  Is  easy  to  see,  therefore,  why  some  organi¬ 
zations  would  have  difficulty  in  developing  modela  of  this  alze  and 
complexl ty . 
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In  conclusion,  we  hasten  to  point  out  that  while  PLANET  is  developed 
aa  a  "general  purpose  simulation  model,"  1l  is  not  a  panacea.  It  is 
limited  in  purpose  and  scope.  However,  we  have  endeavored  to  structure 
the  simulators  so  that  as  the  need  arises  additional  complexity  can  he 
added  and  the  models  thus  can  be  expanded. 
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I .  INTRODUCTION 

In  the  research  phase  of  weapon  system  development,  the  system 
manager  faces  the  problem  of  designing  a  weapon  system  to  meet  speci¬ 
fied  operational  objectives  at  a  minimum  cost.  If  he  considers  only 
the  operational  environment,  the  resulting  hardware  may  be  very  dif¬ 
ficult  and  costly  to  support.  It  often  becomes  apparent  later,  during 
development,  that  if  some  particular  factor  had  been  considered  earlier, 
a  more  effective  system  could  have  resulted  for  the  same  cost. 

Cost/effectiveness  analysis,  if  properly  used,  brings  into  focus 
the  parameters  that  affect  mission  capability.  The  object  is  usually 
to  minimise  the  cost  at  which  a  specified  level  of  effectiveness  can 
be  maintained;  this  involves  a  comparison  of  alternative  ways  of 
designing  and  supporting  a  particular  system  for  a  given  mission. 

The  operating  procedure  for  PLANET  consists  of  a  two-phase  oper¬ 
ation:  first,  the  Simulation  phase  (S  phase);  second,  the  Report  phase 
(R  phase).  The  simulators  can  be  used  singly  or  assembled  in  various 
configurations  to  represent  a  more  detailed  description  of  the  logistics 
system  to  be  examined.  Regardless,  the  output  from  the  S  phase  will 
be  a  tape  listing  of  selected  variables  accumulated  during  the  simula¬ 
tion.  This  tape(s)  can  be  retained  as  a  permanent  record  of  the 
simulation.  From  this  tape (a),  the  desired  reports  are  generated  by 
using  the  following  library  of  programs.  There  are  twelve  program1' 
to  choose  from. 

mg  StfMWtf 

The  NOR  (not  operationally  ready)  time  summary  is  a  listing  of 
the  A?,C  Simulator  NOR  time  distributions  and  a  count  of  the  unscheduled 
defends  for  the  slmulsted  fleet. 

wiAFOM  SYSTEM  AVAILABILITY 

The  weapon  system  availability  program  is  designed  for  use  with 
missile  simulations.  Prom  the  ABC  output  tape,  it  displays  the  missile 
off-alert  time  by  tail  nua&sr  as  well  as  a  chronological,  time-oriented 
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listing  of  what  happened  while  the  missile  waa  off  alert.  Detaila 
include  the  time  a  team  was  dispatched  from  the  support  base,  the 
arrival  time  at  the  site,  when  the  maintenance  action  was  completed, 
and  when  the  missile  was  returned  co  alert  status. 

LOGISTICS  RESOURCE  UTILIZATION 

The  ABC  logistics  information  is  presented  in  three  parts:  Spares, 
Personnel,  and  Equipment.  The  spare  part  data  presented  by  this  report 
contain  information  regarding  stock  levels,  NORS  (not  operationally 
ready-supply)  time,  NORS  count,  and  demand  quantities.  The  personnel 
report  contains  the  man-hour  accounting  information.  This  report  dis¬ 
plays  the  utilisation  factors  for  each  personnel  type  and  the  sum-hours 
consumed  by  various  tasks.  The  equipment  data  presented  contain  infor¬ 
mation  regarding  the  utilisation  of  maintenance  equlpoient  and  facilities. 
NORE  (not  operationally  ready--equipment)  time,  NORE  count,  and  demand 
quantities  are  included. 

The  logistics  resource  utilisation  report  can  be  used  for  either 
aircraft  or  missile  simulations. 

AIRCRAFT  RECOVERY  PACKAGE 

The  following  four  programs  are  peculiar  to  aircraft  simulations; 
they  cannot  be  used  with  in-place  missile  simulations. 

AU£r«ft  Recovery  Tims  Distributions 

The  aircraft  recovery  histogram  presents  a  display  of  the  entire 
aircraft  (as  opposed  to  system  or  subsystem)  recovery.  The  display 
is  divided  into  two  halves:  one  half  shows  the  touchdown  time  by  work- 
shift,  the  corresponding  second  half  shows  the  type  of  sortie.  Below 
this  display  are  a  number  of  statistical  computations  for  facilitating 
analysis,  e.g.,  the  average  recovery  time  (for  unscheduled  msintenance) 
and  the  operationally  ready  (OR)  time  lost  in  recovering  aircraft  from 
the  effects  of  the  sorties,  etc. 
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Svatem  Recovery 

The  aircraft  System  Recovery  program  produces  a  summary  of  the 
actions  to  clear  unscheduled  maintenance  demands.  This  display  serves 
two  purposes:  it  enables  the  monitoring  of  break  and  recovery  rates, 
and  it  provides  a  set  of  job  standards  for  unscheduled  maintenance. 
Below  the  display  are  a  number  of  statistical  computations  for 
facilitating  analysis,  e.g.,  the  total  OR  time  lost  to  this  subsystem, 
the  average  number  of  men  working  on  system  recovery,  etc. 

Work  Center  Recovery 

The  Work  Center  Recovery  output  is  a  series  of  frequency  distri¬ 
butions  (one  for  each  hour  of  the  simulated  day),  showing  how  the 
flight-line  demands  were  distributed  throughout  the  24-hour  period. 

The  purpose  of  this  display  is  to  aid  in  determining  shift  assignments 
for  personnel. 

The  work  center  data  the  recovery  program  produces  are:  the 
touchdown  time,  the  time  the  work  center  began  the  first  job  and  ended 
the  last  Job,  the  number  of  people  at  work  in  each  30-minute  trial 
period,  and  the  conventional  AFM  66-1  data. 

Failure  List 

The  Failure  List  provides  a  graphical  history  of  break-rate  infor¬ 
mation.  This  display  presents  the  fliglu-line  demand  data.  The  break- 
rates  are  Inferred  from  the  demands,  both  scheduled  and  unscheduled, 
against  each  individual  unit.  The  probability  data  are  computed  only 
for  25  or  more  sorties;  the  mean  sort ies-to- fal lure  data  are  computed 
if  five  or  more  fixes  have  occurred. 


OOST/EFFECTIVENESS  PROGRAM 

The  Cost/Effectiveness  program  can  be  set  to  examine  two  cost 
factors:  the  total  system  cost  and  the  logistics  support  costs.  Logis¬ 
tics  costs  are  the  summation  of  the  various  resource  and  facility  costs 
specified  for  the  simulation.  Total  system  costs  are  the  logistics 
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costs  just  mentioned  plus  the  cost  of  the  items  being  simulated  (sites). 
The  measure  of  effectiveness  is  operat iona 1 ly  ready  (OR)  time. 

BASE  SHOPS  MAINTENANCE  CAPABILITY 

As  the  title  implies,  this  output  program  is  used  to  display  the 
outputs  from  the  Bench  Repair  Simulator.  The  output  display  consists 
of  five  parts:  the  input  to  each  shop  and  its  output  and  repair  times 
for  the  period(s)  of  time  selected;  queueing  and  utilization  factors 
for  each  resource  group  (personnel  and  equipment  groups);  queueing 
factors  for  each  component  spare-part  type;  stock  levels,  component 
spare  repair  times,  stockouts,  and  demands  for  each  component  spare 
part;  and  detailed  information  for  each  activity  about  its  performance 
during  each  period  of  the  simulation. 

NRTS  PROGRAM 

The  NRTS  (not  reparable  this  station)  data  display  shows  the 
reparables  shipped  off  base  for  repair.  It  displays  the  pipeline  time 
for  the  reparables.  This  program  is  used  primarily  as  an  input  to  the 
Depot  Transportation  Simulator  when  the  simulators  are  operated 
separately. 

CAPABILITY 

This  output  program  is  the  output  display  for  the  Depot  Transpor¬ 
tation  Simulator.  The  outputs  are  presented  in  six  parts:  the  tonnage 
delivered  to  the  various  bases  for  each  type  of  priority  cargo;  the 
quantity  of  each  cargo  type  delivered  to  the  various  delivery  points; 
the  mileage  and  ln-transit  time  for  each  t ransport at  ion  rode ;  the 
utilisation  rates  of  the  vehicles  assigned  to  the  t ransportat ion  system; 
cargo  processing  time  and  quantities,  and  queueing  factors  associated 
with  cargo  transportation  at  each  base. 

DEPOT  CAPABILITY 

The  Depot  Capabllit  v  output  program  is  used  with  the  !>epot  Repair 
and  Overhaul  Simulator.  The  output  displays  consist  of  six  parts: 
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the  input  to  the  depot,  end  the  depot1*  output  end  in-process  time 
distribution;  queueing  end  utilicetion  factor*  for  eech  resource  group 
(personnel  end  equipment  groups);  queueing  fectors  for  eech  component 
spere-pert  type;  stock  levels,  spere-pert  repeir  time,  stockouts,  end 
demands  for  eech  spere  pert;  deteiled  informetion  for  each  activity 
about  its  performance  during  eech  simulated  period;  and  queueing  factors 
snd  downtime  for  any  "special"  type  of  activity  within  the  repair  or 
overhaul  process. 

A*  previously  mentioned,  the  manager  may  select  from  this  library 
of  programs  those  best  suited  for  analysis  of  his  particular  problem. 
Even  though  the  output  programs  cover  a  wide  spectrum  of  problem  areas, 
it  can  be  anticipated  that  additional  outputs  will  be  required  for  some 
analyses.  Either  the  output  programs  can  be  modified  to  Incorporate 
any  additional  data  required,  or  new  program*  can  be  written  with 
relative  eaae. 

This  Memorandum  la  divided  into  two  parte.  Part  1  contains  the 
introduction,  which  Includes  a  brief  description  of  each  of  the  reports. 
Section  II  presents  the  SIMSCRIPT  instructions  required  to  initialise 
any  of  th:  report  programs . 

Part  2  is  the  library  of  programs,  including  a  description  of 
each  program,  the  initialisation  requirements,  a  program  description 
oriented  to  the  skilled  SIMSCRIPT  programr  who  may  wish  to  make  a 
change,  and  a  listing  of  the  SIMSCRIPT  S#URCE  program. 
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II.  INITIALIZATION 

All  of  Che  Report  progress  ere  written  in  SIMSCRIPT  ea  Non- 
simulation  programs.  Non- simulation  programs,  as  with  the  PLANET  sim¬ 
ulation  programs  (Refs.  2,  3,  4,  5),  ere  translated  by  SIMSCRIPT  Into 
FORTRAN  source  programs,  which  are  then  compiled  by  the  FORTRAN  Monitor 
into  a  FORTRAN  object  program.  Once  the  program  has  been  compiled, 
the  composition  of  Che  execute  deck  is  as  shown  in  Fig.  1. 

The  execution  of  object  programs  is  accomplished  in  the  usual 
FORTRAN  manner,  and  whatever  control  cards  may  be  required  by  a  par¬ 
ticular  installation  appear  first. 


m»a-Slaulatton) 


moamxtt  mm  nmttM* 

I1ND  mtlati 

sc  wot  irs  (soecam  or  iohmj) 
merlon  (soecam  or  poems) 


Fig.  1  --  Execute  Peck 

The  object  programs  may  appear  in  any  order;  they  are: 

A  Simulation  Package 
An  Events  Routine  or  a  Main  Routine 
All  Entity,  Attribute,  and  Set  Packages 
All  Exogenous  Events  Routines 
All  Report  Routines 

All  Subroutines  (SIWCRIFT  or  FORTRAN) 

All  Functions  (SIMSCRIPT  or  FORTRAN) 

The  object  programs  are  constructed  from  the  information  contained 
In  the  appropriate  Report  program.  We  shall  assume  at  this  point  that 
the  analyst  has  an  "Object  Deck"  available  and  it  now  ready  to  assemble 
a  "Data  Deck." 
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DATA  DECK 

The  composition  of  the  Data  Deck  is  shown  in  Fig.  2.  The  various 
eieaents  and  the  data  requirements  for  each  are  discussed  below. 


- INITIAL  CONDITIONS  DECK 

SYSTEM  SPECIFICATIONS  CARD 
Fig.  2  --  Data  Deck 


System  Specification  Card 

The  first  card  in  the  Data  Deck  is  the  System  Specification  Card. 
In  Col.  1  must  be  the  number  1,  In  Cols.  7  through  12  la  punched  the 
maximum  "Array  Number"  as  in  Fig.  3.  Only  these  two  entries  are 
required.  For  a  complete  System  Specification  Card  format,  refer  to 
the  top  of  Fig.  4 . 
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Fig.  3  --  System  Specification  Csrd 
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The  Initial  Conditions  Deck  consists  of  all  Ini t ia 1 1 tat  ion  Cards 
and  Data  Cards.  Before  discussing  each  of  the  cards  contained  in  the 
Initial  Conditiona  Deck,  let  os  first  discuss  the  S1KSCRIPT  Initialisa¬ 
tion  Form,  because  the  Initial  Conditions  Deck  ia  created  from  the 
information  contained  in  the  initialisation  Form. 

The  specification  of  initial  conditions  ior  the  Report  Generators 
is  a  very  simple  process.  Only  a  few  arraye  need  be  initialised  in  all 
cases.  The  appropriate  arrays  and  tha  required  values  (data)  are  spec¬ 
ified  for  each  report. 


irsnx  mciriCATion  cau> 


fig.  4  --  Initi jllzftion  Fora 
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The  Initialization  Deck  consists  of  Data  Carda  plua  Initialisation 
Cards  punched  from  the  Initialization  Form  shown  in  Fig.  4.  Every 
Array  Number  from  "1"  up  to  the  largest  must  be  considered  in  sequen¬ 
tial  order  in  the  Initialization  C~rda.  The  complete  sequence  of  Array 
Numbers  must  be  accounted  for. 

Procedures  for  preparing  the  Initial  Conditions  Deck  are  discussed 

under  the  following  headings: 

Unsubscripted  Permanent  Attributes 
Single-subscripted  Permanent  Attributes 
Double-subscripted  Permanent  Attributes 

Unsubscripted  Permanent  Attributes.  Each  unsubscripted  Permanent 
Attribute  (System  Actribute)  must  have  its  initial  value  read  in  or 
set  equal  to  zero. 

Initial  values  of  unsubscripted  Permanent  Attributes  may  be  sepa¬ 
rately  specified  by  means  of  individual  Initialization  Cards.  They 
may  also  be  handled  in  groups  by  means  of  a  single  Initialization  Card 
followed  by  Data  Cards.  To  be  initialized  as  a  group,  the  System 
Attributes  In  the  group  must  have  consecutive  Array  Numbers.  Their 
values  must  also  be  read  in  by  using  the  same  FORMAT  statement  Field 
Description . 

Figure  5  shows  the  entries  required  to  read  in  the  initial  value 
of  a  single  System  Attribute.  The  initial  value  can  be  set  to  zero  by 
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1.  Enter  the  Array  Number  in  Cols.  1  through  4.  The  unit's 
position  of  the  Array  Number  must  be  In  Col.  4. 

2.  Enter  a  zero  in  Col.  10. 

3.  Enter  an  "R"  in  Col.  12. 

4.  Enter  the  Initial  Value  as  an  Integer  or  decimal  number 
anywhere  In  Cole.  SO  through  66.  Formats  other  than 
integer  or  decimal  (e.g.,  hours  or  alphanumeric)  must  be 
read  from  the  Data  Cards. 


Fig.  5  --  Initialization  Card  Entries  for  s  Single 
Unsubacrlpted  Permanent  Attribute 


inserting  a  zero  in  Cole.  50  through  66,  or  by  leaving  Col.  12  blank 
and  inserting  a  "Z"  in  Col.  13. 

Single-subscripted  Permanent  Attributes.  If  the  initial  values 
are  to  be  read  in,  a  separate  Initialisation  Card  followed  by  the  Data 
Cards  is  required  for  each  list  of  single-subscripted  Permanent  Attri¬ 
butes.  If  the  initial  values  are  to  be  set  equal  to  sero,  one  or  more 
lists  of  single-subscripted  Permanent  Attributes  may  be  handled  by  a 
single  Initialisation  Card,  providing  the  lists  are  of  the  same  length 
and  have  consecutive  Array  Number.: . 

To  read  in  the  initial  values  of  a  list  of  single-subscripted 
Permanent  Attributes,  the  Initialisation  Card  entries  shown  in  Fig.  6 
are  required. 
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1.  Enter  the  Array  Number  in  Cols.  1  through  4. 

2.  Enter  a  "1"  in  Col.  10. 

3.  Enter  an  "R"  in  Col.  12. 

4.  In  Cols.  15  through  16,  enter  the  largest  value  that  the  (row) 
subscript  may  take  on.  This  will  be  the  same  value  to  which 
the  Entity  that  describes  the  (row)  units/coordinates  of  the 
table  has  been  initialized.  Refer  to  Item  5  below. 

5.  In  Cols.  19  through  22,  enter  the  Array  Number  of  the  Entity 
that  describes  the  (row)  units/coordinates  of  the  table. 

This  Array  Number  is  a  function  of  the  program  and  is  preset 
for  each  table.  It  is  preprinted  in  Table  7. 

6.  In  Cols.  50  through  66,  enter  a  single  FORMAT  statement  Field 
Description  enclosed  in  parentheses  and  preceded  by  an  optional 
constant,  if  desired.  This  Field  Description  tells  how  the 
initial  values  of  the  list  are  to  appear  in  the  subsequent 
Data  Cards.  Bach  Data  Card  will  be  read  starting  in  Col.  1. 

If  desired,  successive  values  may  appear  across  the  Data  Card. 


Fig.  6  --  Initialisation  Card  Entries  for  Reading  In  a  Single- 
subscripted  Permanent  Attribute  List 
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Qne  or  more  lists  of  single-subscripted  Permanent  Attributes 
describing  the  same  Entity  and  having  consecutive  Array  Numbers  can 
be  initially  set  equal  to  zero  by  the  Initialization  Card  entries  shown 
in  Fig-  7.  Inserting  the  letter  "Z"  in  Col.  13  causes  zeros  to  be 
stored  in  the  entire  word. 


INITIALIZATION  CARDS 
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1.  Enter  the  lowest  Array  Number  in  Cols.  1  through  4. 

2.  Enter  the  highest  Array  Number  in  Cols.  5  through  8. 

3.  Enter  a  '1"  in  Col.  10. 

4.  Enter  a  "2"  in  Col.  13. 

5.  In  Cols.  15  through  18,  enter  the  largest  value  that  the 
(row)  subscript  may  take  on.  This  will  be  the  same  value 
to  which  the  Entity  that  describes  the  (row)  units/coordi¬ 
nates  of  the  table  has  been  initialized.  Refer  to  Item  6 
below. 

6.  In  Cols.  19  through  22,  enter  the  Array  Number  of  the  Enticy 
that  describes  the  (row)  units/coordinates  of  the  table. 

This  Array  Number  is  a  function  of  the  program  and  is  present 
for  each  table.  It  is  preprinted  in  Table  7. 


Fig.  7  --  Initialization  Card  Entries  for  Setting  Single- 
subscripted  Permanent  Attribute  Lists  to  Zero 


Double-subscripted  Permanent  Attributes.  If  non-zero  initial 
values  are  to  be  read  in  for  a  table  of  double-subscripted  Permanent 
Attributes,  each  table  requires  a  separate  Initialization  Card  followed 
by  Data  Cards  containing  the  values.  However,  a  single  Initialization 
Card  may  serve  to  zero  out  one  or  more  Attribute  tables,  providing  they 
all  describe  the  same  pair  of  Permanent  Entities  and  have  consecutive 
Array  Numbers.  The  procedure  for  setting  Ragged  Tables  equal  to  zero 
is  described  below. 

Figure  8  shows  the  Initialization  Card  entries  required  for  reading 
in  the  initial  values  of  a  table  of  double-subscripted  Permanent 
Attributes . 
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1.  Enter  the  Array  Number  in  Col3,  )  through  4. 

2.  Enter  a  "2"  in  Col.  10. 

3.  Enter  an  "R"  in  Col.  12. 

4.  In  Cols.  15  through  18,  enter  the  largest  value  that  the 
(row)  subscript  may  take  on.  This  will  be  the  same  value 
•■o  which  the  Entity  that  describes  the  (row)  units/coordi¬ 
nates  of  the  table  has  been  initialized.  Refer  to  Item  5 
below. 

5.  In  Cols.  19  through  22,  enter  the  Array  Number  of  the  Entity 
that  describes  the  (row)  units/coordinates  of  the  table. 

This  Array  Number  is  a  function  of  the  program  and  is  present 
for  each  table.  It  is  preprinted  in  Table  7. 

6.  In  Cols.  23  through  26,  indicate  the  largest  nlumn  subscript. 

7.  In  Cols.  27  through  30,  enter  the  Array  Number  of  the  System 

Variable,  the  value  of  which  is  equal  to  the  value  of  the 
largest  column  subscript. 

8.  Indicate  the  order  in  which  the  Attribute  values  are  to  be 
read  from  the  Data  Cards  by  entering  an  "B"  in  Col.  36  if  the 
values  are  to  be  read  across  rows,  or  entering  a  "C"  in  Col. 

37  if  they  are  to  be  read  down  columns. 

9.  If  the  beginning  of  each  new  row  or  column  is  to  start  on  a 

new  Data  Card,  enter  an  "N"  in  Col.  38.  If,  instead  of  starting 

on  a  new  card,  the  first  entry  in  a  new  row  or  column  imme¬ 

diately  follows  the  last  entrv  in  the  preceding  row  or  column, 
put  an  "F"  in  Col.  39. 

10.  In  Cols.  50  through  66,  enter  a  FORMAT  statement  Field  Descrip¬ 
tion  enclosed  in  parentheses  indicating  how  the  table  entries 
are  to  appear  in  subsequent  Data  Cards. 

Fig.  8  --  Initialization  Card  Entries  for  Reading  in  a  Double- 
subscripted  Permanent  Attribute  Table 


Initial  Conditions.  SIMSCRIPT  requires  that  at  )  n*»nrianent  system 
variables  be  given  initial  values  in  ascending  orui  their  Numbers 
(l-N).  Data  Deck  Card  2  to  the  end  (the  last  array  number  "N")  is  the 
Initial  conditions  deck. 

With  each  output  program  is  a  Variable  Description  and  Initializa¬ 
tion  Table  to  specify  the  initial  valuu(s)  assigned  to  each  permanent 
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systea  variable.  The  Foraata  uaed  to  initialise  the  different  types 
of  variables  (e.g.,  unsubscripted,  single-subscripted,  double-subscripted) 
have  been  previously  described.  There  are  no  exogenous  events  used  in 
any  of  the  report  generators. 
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Part  2 

PROGRAM  LIBRARY 


Program  1 
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I .  NOR  TIME  SUMMARY 

The  NOR  (Not  Operationally  Ready)  time  summary  (Fig.  9)  is  a 
llt^ng  of  the  downtime  diatributiona  for  any  set  of  fail  levels  and 
a  count  of  the  demands  for  the  simulated  fleet.  The  program  may  be 
Initialised  to  specify  any  time  period  desired  ae  well  as  any  portion 
of  the  simulated  fleet,  i.e.t  a  single  base  or  all  bases.  This  output 
is  shown  in  the  following  figure  along  with  an  explanation  of  each  of 
the  columns  of  the  output  listing. 

INITIALIZATION 

Table  1  lists  the  Initialisation  requirements.  Only  six  arrays 
require  inputs.  Array  23  is  the  number  of  bases  to  be  analysed.  Array 
24  lists  the  base  (quantity  specified  in  Array  23)  numbers.  Array  26 
is  the  quantity  of  different  failure  levels  to  be  counted  in  the  NOR 
time.  Array  27  lists  the  failure  level  numbers.  Array  33  is  the  time 
that  the  reports  are  to  end.  Array  S3  is  the  Report  Interval,  which 
specifies  the  time  period  at  which  the  data  are  to  be  accumulated  and 
printed  (the  example  data  are  initialised  for  1-day  reports).  All  of 
the  other  arrays  are  set  to  sero. 

For  the  Initialisation  formats,  the  user  may  use  the  example  data 
contained  with  the  program  listing  or  refer  to  Section  2,  Initialisation 
instructions  for  unsubscrlpted  and  single-subscripted  system  variables. 

The  input  to  this  program  is  the  tape  generated  by  the  ABC 
Slwlator. 

The  input  tape  consists  of  a  12-variable  label  record  and  is  some¬ 
times  followed  by  a  10-varlabla  detail  record.  (See  pages  108  and  109 
of  RH-4659-Ft.) 

When  a  label  record  is  READ  frost  the  input  tape,  the  value  of 
BIAS  is  compared  with  the  table  called  BASES.  If  they  are  equal,  the 
record  is  processed.  Therefore,  any  combination  of  1  or  more  bases 
may  run  at  one  time. 
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When  a  label  record  ia  read,  the  value  of  the  failure  level  la 
compared  with  the  table  called  FLVLS.  If  they  are  equal,  the  record 
ia  proceaaed.  Therefore,  any  combination  of  1  or  more  failure  levele 
may  be  run  at  one  time. 

If  ETIME  ia  greater  than  RTIME,  REPOST  ia  called  and  the  output 
la  diaplayed.  If  STINE  la  greater  than  TMEND,  REPORT  ia  called  and 
the  output  la  diaplayed.  The  run  ia  then  terminated. 

PERMANENT  VARIABLES 

Thla  llat  la  complete  except  for  attrlbutea  denoting  firet-of-aet 
and/or  laat-of-aet  and  predeceaaor  and/or  aucceaaor  of  aat . 

Label  recorda  (aee  page  108  of  RM-4659-FR) . 

IDSOR  -  Idr 
IDSUB  -  Idd 
SHFT  -  Shift 
DAYV  -  Oy/Wk 
SXDW  -  S/Wk 
EBAS  *  Baae  no. 

VA  «  Variable- l 
VB  •  Variable-2 
VC  -  Variable- 3 
TRSM  «  10  Addreaaea 
MORE  •  Dri 
ETIME  •  Event  time 

Detail  recorda  (aee  page  109  of  IN- *65 9- PR) . 

DTLV1  «  Integer  variable  1 
DTLV2  •  Integer  variable  2 
DTLV3  ■  Integer  variable  3 
DTLV4  •  Integer  variable  4 
DTLVS  •  Integer  variable  5 
DTLV6  ■  Integer  variable  6 
DTLV7  -  Integer  variable  7 
0TLV8  •  Integer  variable  8 
DTLV9  •  Float  variable  l 
DTLVO  ■  Float  variable  2 


20 


Base  table. 

BASES  ■  Number  of  bate  codec  Co  be  processed. 

BASE  •  Base  codes  to  be  processed . 

BFLAG  ■  Controls  flow  oi  events  as  a  result  of  EBAS  vs.  BASES. 
Failure  leyel  Cable. 

FLVLS  -  Number  of  failure  codes  to  be  processed. 

FLVL  ■  Failure  level  codes  to  be  processed. 

TMEND  •  Time  Initialized  to  end  this  run  prematurely. 

Variables  used  to  output  display.  (Time  in  decimal  days). 


Dl 

•  Reporting  time 

D2 

■  NOR  time  this 

period 

D3 

■  NOR  time  to  date 

04 

■  Number  of  NOR 

IN  this  period 

D5 

■  Number  of  NOR 

OUT  this  period 

D6 

-  Number  of  NOR 

IN  to  date 

07 

■  Number  of  NOR 

OUT  to  date 

08 

-  Hln .  NOR  time 

this  period 

D9 

*  Max.  NOR  time 

this  p  riod 

010 

■  Avg.  NOR  time 

this  period 

Dll 

■  Std.  dev.  for 

this  period 

D 1 2 

•  Min.  NOR  time 

to  date 

Dl  3 

»  M«x .  NOR  time 

to  date 

DU 

-  Avg.  NOR  time 

to  date 

015 

■  Std.  dev.  to  date 

Calculation  variables. 

TINEN  •  NOR  time  for  each  period. 
SUMP2  ■  Std.  dev.  this  period. 

SUW>2  •  Std.  dev.  to  date. 

RTIHE  •  Reporting  tisi. 

VTIME  *  Reporting  t Ism  interval. 

LINE  •  Counter  used  in  report  pha*e. 
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SETS 

Name  *  NQUE  used  for  NOR  events.  No  subscripts.  Ranked  Nl. 
Owner  ■  SIMSCRXPT  system. 

Member  °  NOR 

Nl  »  Event  time  -  start  of  this  period. 

N3  ■  System  code. 

N4  -  Failure  level  code. 

N8  •  Team  ID. 

N9  »  Request  ID. 

NIC  «  Site  ID. 

Nil  -  IDSUB. 

N12  •  Cvent  time  -  start  to  date. 

Name  -  PQUE  us-lJ  for  preventive  maintenance  events.  No 
subscripts.  Ranked  on  PI. 

Owner  -  SIMSCRIPT  system. 

Member  ■  PM 

PI  •  Event  time  -  start  PM. 

P2  -  System  cod*. 

P4  ■  Request  ID. 

P5  •  Site  ID. 

Name  *  HQUE  used  for  overhaul  events.  No  subscripts.  Ranked 
on  HI . 

Owner  ■  SIMSCRIPT  system. 

Member  •  OH 

HI  •  Event  time  -  start  of  overhaul. 

H2  •  System  code. 

IU  *  Teem  ID. 

H4  •  Request  ID 
H5  -  Site  ID. 
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4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


4 

4 

♦ 


1 lOSUH  0  I 

?idsih  o  i 

3SHFT  0  | 

4DA  Yw  0  I 

ssxnw  n  i 

6£  l  A  j  0  1 

7VA  0  I 

HVI<  0  f 

9VC  0  I 

UTRSF  0  I 

11*0*1  0  I 

li'tTIMr  0  F 

norm  o  i 

140UV?  r>  I 

I  *»DTL  VI  0  I 

160TIV4  C  I 

1/0TLV3  0  J 

lHDTi V6  0  I 

190TLV7  0  | 

?ODTLVrt  0  I 

21DTLV9  0  F 

220TL  VO  0  F 

2 3BAS*'  S  E  I 

24HA  St  1  I 

?*»BFUr,  0  I 

?6Fl VL  S  r  I 

27FIVI  1  I 

2HFNOOF  C  J 

291NUUF  0  I 

30FPQUE  0  I 

31LPQUF  0  I 

32*SIIF  0  » 

33TMFND  0  F 

3401  U  F 

3302  0  F 

3603  0  F 

3704  0  I 

3RD**  0  I 

3906  0  I 

4007  0  I 

4108  0  F 

4209  0  F 

43010  0  F 

44011  0  F 

4501 ?  0  F 

46013  0  F 

47014  0  F 

48013  0  F 

49  T I ME  N  0  F 

50SUMP2  0  F 

61SUMD2  0  F 

5?R TIME  0  F 

63VTIMF  0  F 
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♦ 

♦ 

♦ 

♦ 

♦r  nok  s  n 
♦ 

♦ 

♦ 

♦ 

♦ 

* 

4 

4 

♦ 

4 

♦  T  PH  8 

4 

4 

f 

4 

4 

4 

4T  OH  8 

4 

4 

4 

4 

4 

4 


SALINE  0 
OSfHUUP  0 
SfciMcur  i, 

TNI  1  f 

T  N3  ?  I 

T  NA  A  I 

T  N8  5  i 

T  NS  6  I 

T  MO  7  [ 

T  N II  e  r 

T  M2  31  r 

T  PNOiifc  32  I 

T  SNOUC3-*  F 

T  PI  l  F 

T  P2  2  1 

T  PA  3  1 

I  Pb  A  ! 

r  PPguE  s  F 

T  SPCJUE  6  | 

f  hi  i  r 

f  H?  2  I 

T  M3  3  1 

T  HA  A  I 

l  MS  A  | 

T  PHguE  ft  | 

T  SHCUE  7  I 


I 

! 

F 

NUUr  f*  **U  l 


POUF  l 


*U.UF2  *  gl  l 


nnflrpnfiftponn 
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«1BFTC  MAIN 

MAIN  ROUTINE 


PLANET  -  NOR  T IMF  SUMMARY. « • 


. PURPOSE  -  TO  REPORT  NOR  TIME. 


INPUT  -  TAPE  FROM  ABC  MODEL. 


OUTPUT  -  PRINTER  (SIMSCRIPT  RPG) 

(. 

C 

C 

REM  I NO  V 
C 

LET  RTIME  »  RTIM6  ♦  VUME 
LET  OB  *  99994.99999 

LET  01?  *  99499.99999 

C 

i  CALL  RLBL 
CALL  SELECT 
C 


IF 

I insubi 

to 

( 

3). 

G(J 

TO 

3 

IF 

(BFLAG) 

NE 

( 

0), 

Gil 

TO 

9999 

IF 

( tnsuB i 

EU 

(  110), 

GO 

TO 

110 

IF 

( IOSUB ) 

EU 

(  200), 

GO 

TO 

200 

IF 

( icsubi 

eg 

(  *00), 

GO 

TO 

500 

IF 

I IOSUB) 

EO 

(  600), 

GO 

TO 

600 

IF 

(IOSUB) 

FQ 

( 1900), 

GO 

TO 

1900 

IF 

( IOSUB) 

eg 

(2000), 

GO 

TO 

2000 

IF 

(  IOSUB) 

EO 

(2100), 

GO 

TO 

2100 

IF 

( IOSUB) 

EO 

(2150), 

GO 

TO 

2150 

IF 

( IOSUB) 

EQ 

(2300), 

GO 

TO 

2300 

IF 

1 IOSUB) 

eg 

(2400), 

GO 

TO 

2400 

IF 

( IOSUB) 

EO 

(2500), 

GO 

TO 

2500 

C 

GO  TO  9999 
C 

3  CALL  R3 
CALL  EXIT 
C 

110  CALL  RHO 
GO  10  9999 
C 

?00  CALL  R200 
00  TO  999^ 
C 

500  CALL  R500 
GO  TO  9999 
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C 

*00  CALL  R600 
GO  TD  9999 
C 

1900  CALL  R 1900 
GO  TO  9999 
C 

2000  CALL  R2000 
GO  TO  9999 
C 

2100  CALL  R21C0 
GO  TO  9999 
C 


2150  CALL  R215Q 
GO  TO  9999 
C 

2300  CALL  R2300 
GO  TO  9999 
C 

?*00  CALL  R240Q 
GO  TO  9999 
C 

2500  CALL  R250Q 
GO  TO  9999 

C 

9999  IF  (MORE)  EQ  (0 
CALL  ROTL 
GO  TO  9999 

C 


i  • 


FNO 


GO  TO  i 


u  J  u  u  x  u 
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♦IBFTC  KLBl. 

SUBROUTINE  KLBI 

...KUOS  S-PHASF  TAPE ( 9 )  (BIN  MODE  L  ARE  L  IO  CORDS. 

LET  BFL  AG  »  U 

READ  I»»  1 1*  12,  n,I4,IS,  |A,|  r,|M,  [9,110,111,  II? 

STORE  II  IN  IOSOR 
STORE  I?  IN  lOSUft 
STORE  13  IN  SHFT 
STORE  14  IN  OAYW 
STORE  IS  IN  SXOW 
S TORI'  It.  IN  ERAS 
STUB1  1/  IN  VA 
STORE  if»  IN  VB 
STORE  19  IN  VC 
STORE  HO  IN  TRS* 

STUWf  Ill  IN  MORE 
STORE  n?  IN  F  I  IRE 


IF 

(Hive ) 

GW 

( TREND  )  t 

GO  IU 

i 

1  IF 

( e  r i me  ) 

OR 

(MTIRE  1. 

GO  If 

? 

RETURN 

2  CALL  REPORT 

GO  TO  l 

3  LEI  ETIrb  r  TREND 
CALL  R  3 

CALL  FXIT 

ENO 


C 
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♦ihftc  select 

SU8K0U I INf  SFL^CI 
C 
C 

C . PURPOSE  -  TO  SELECT  f  VENTS  PY  EASE. 

C 

C 

00  ?U  l,  FOR  EACH  PASfcS  I 
IF  (ERAS)  EU  (RASH  I H •  GO  10  2 

1  LOOP 

LET  BFLAG  *  l 
GO  TO  9999 
C 

2  LET  rtfLAG  *  0 
GO  TO  9999 

C 

9999  RETURN 
END 


♦IPFTC  ROTL 

SUBROUTINE  RUTL 
C 

C . REAOS  S -PHASF  TAPEI9)  (BIN  HUGE) . DETAIL  RECORDS* 

C 

X  READ  19)  II,  12,13,14,15,16, 17, IB. I9,U0 

C 

STORE  (1  IN  OTLVl 
STORE  I?  IN  0TLV2 
STORE  H  IN  OTLV* 

STORE  H  IN  0TLV6 
STORF  IS  IN  0TLV5 
STORE  16  IN  0TLV6 
STORE  17  IN  0TLV7 
STOKE  18  IN  OTLVfl 
STOKE  19  IN  DUV9 
STOKF  110  IN  OTLVO 
C 

LET  NONE  ■  WORE  -  l 
C 

RETURN 

FNO 


nnnnoonn 
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•IRfTC  R3  3 

SlibROlJ  f  INE  R  3  3 

3 

PURPOSE  -  TO  CLOSE-OUT  AND  END  K-PHASF.  3 

3 
3 

IOSUH  *  3.  3 

3 
3 

LET  LINF  *  0  3 

LET  RT|MF  «  TTIMt  3 

C  3 

10  on  TO  3«  FOR  EACH  ¥  IN  NUUfc  3 

C  3 

REMOVE  M  FRflM  NQIJE  3 

C  3 

LET  TIMFN  *  fcUMC  -  NIIP)  3 

LET  TIMER  «  ETIME  -  N 12(H)  3 

C  3 

LET  05  «  05  ♦  1  3 

IE!  07  =  07  ♦  1  3 

LET  02  •  02  ♦  TIMEN  3 

LET  03  *  03  ♦  TIMEN  '» 

C  3 

LET  SUMP2  «  SUMP?  *  TIMEN**?  3 

LET  SUMO?  ■  SUMO 2  ♦  TIMFN**?  3 

C  3 

IF  ITIMFNI  GE  I  0  R )  »  GO  TO  1  3 

LET  08  »  TIMtN  3 

C  3 

1  IF  I TIMEN  I  Lfc  (D9>.  GO  TO  2  3 

LET  09  *  TIMEN  3 

C  3 

2  IF  ITIMEMI  L E  ID13I*  GO  TO  3  3 

LET  013  *  TIMFM  3 

C  * 

3  REPEAT  10  3 

C  ’ 

CALL  RFPORT  3 

C  3 

REWIND  >  3 

C  ’ 

RETURN  3 

FNO  3 
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♦IPFIC  K  1  1 0 


C 

C 

C . 

C 

C 

C . 

f. 

C 


si'RPnuriNi  Hiio 
PUHPl  Sr  -  S T  Art  I  9JR  F1M  F  XI  >, . 

I  nsu*;  =  110. 


f  M  l  UH  t  , 


IF  I  VC  I  F  (>  12),  (,n  in  J 

IF  (VC)  FD  (4),  (.1  r  l  4 

IF  (VC)  tU  (6),  >,(.  T:i  6 

GO  If:  9490 
C 

c . .  MlLOP.f  . 

C 


2  DO  rn  20#  f(IK  EACH  1LVIS  I 
IF  (  VH)  F  U  ( FI  VL (  I )) ,  GO  m  ?\ 

20  l OOP 

GO  f ( 1  9499 

c 

21  CREATF  \tOR  CALLED  N 

stort  »-r i^f  in  nmni 
‘■Tort  f r i vt  i*  m2(m 
STCJRt-  VA  IN  N  ID  1 

sturt  v »*  in  n 4 1  ) 

S  TOR'  THSM  IN  N10(M 
STORE  ( US)  IP  IN  MUNI 
Fill  N  IN  *,0Uf 
l  FI  D4  ■-  1)4  ♦  l 

LET  Oft  *  06  ♦  1 
Oil  1 1  9944 

C 

(- . pm, 

c 


c 

c 

c 


4  CREATF  p*  L A L l F D  P 
STORE  ri  IMF  If  P||P) 
STORE  VA  |N  P^IP) 
STORf  THSP  IN  P‘, <p) 
FILE  P  I  4  POut 
GO  TO  9499 

. rxoo.  OVFRHAUt  . 


6  CREATE  UH  CALLED  H 
STORE  CTIMF  IN  MHmI 
STORE  VA  IN  H2IMI 
STORF  TRSP  IN  HS(h) 
FILE  H  IN  HOUI 
GO  1C  V 499 
C 

0499  KFTURN 
(NO 


t  X'lG.  PM,  FX'U,.  'tV'RMAiJL. 


I 


o  r*  n  o  r* 
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•IPFTC  R200 

SOHKdullNh  K ?00 
C 
f 

C . PURPCSf  -  TU  rut  N0»  F0»  NAISTFNVJCF  COMRLF  TFD. 


IOSUH  «  200. 


if  < h(jkf i  ta  ioii  r.r  to  ggyg 

CALI  ROIL 
C 

FINI  FIRST,  FOR  TACH  K  IN  NQUF ,  *|  TO  (  Mft  <  M  |  )  EQ  I T  R >M)  , 
A  AND  (MO(M|)  EO  IVA), 


XhHtHI  IN,  IF 

noni,  Go  To  gggg 

LfT 

TIMTS  * 

FTIHF  -  Nil  I M ) 

1  CT 

TIMFM  * 

FTIHE  -  N 1 21  IM 

1  LT 

is  =  ns 

♦  1 

L  CT 

07  *  07 

♦  l 

LFT 

02  *  02 

♦  TINES 

LET 

0?  -  03 

♦  TINES 

LET 

SUNR2  « 

SUMP 2  ♦  TIMFM**? 

LET 

SUR 02  « 

SUM  2  ♦  TIME  M**2 

C 

IF  IT  THEN  I  (,r  ( OR  I,  Oil  TO  l 
L  FT  OH  «  TIMM 
C 

1  IF  I  TIM  Ml  LI  U)g I,  (.0  TO  2 
IfcT  O')  «  TIKtN 

C 

2  If  I  TIMM  |  f.fc  10121,  »,0  TO  J 
LfT  0S2  «  TIMM 

C 

3  IP  UIMF.HI  LI  10131,  GO  TO  A 
LET  013  ■  TIMM 

C 

A  REMOVE  IM  FROM  SOUL 

ncsTPnv  mor  called  im 

c 

W3  RETURN 
I  NO 


n  n  n 
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•IBUl,  «S(;c 

SUl'KOUf  INF  H'jOO 
c 
c 

r- . HUKHflSh  -  T  F  Ak=  DISPATCH  PY  P  A  F  IDMKHL, 

C 

1 1)5  U  P  =  >00. 


C 

c 


c 

r. 


L 

C 


IF  < F* ( .* U r  I  £f;  (0),  c.i :  fti  ')« 44 
C  At  L  «  n  I L 


JF  (l>TLV4J  Tu  (MSlIf  ),  (.:  rr  «»</n 


F  iMi  f  IKST,  )  CK  k  A(.M  H  I  \  M..UI 

X 

Xt*klFMr  |\#  if  MJNi  ,  j(j  I,  i 


w!  fM  IM(M)  ,  t  y  (VC)  t 
AM'  O'IO(P)  )  k  L  (  OF  I  VI  I 


!» T n « r  T«SP  IN  M;(IM 
'»U  10  ‘))44 


i  r  iNfj  Tins?,  mr  fach  *  r:  h  -i,k  , 

x 

X  W  Ht  K I  III)  Ik  MINI  9  <i:  J  li  '>'■)>) 

STOPF  IKNM  I  }  MI(  IH) 

..n  it 


I  11*41  M  )  )  F  (J  UU  , 

AM  IM*)!  P>  )  k  0  (Mil  VI  )  , 


949)  PfTuwN 

r  NT 


•  IIMTC  KfiUO 


SOhROUTIN'  <610 

(. 

c 

c . PUKPi  sr  -  it  ah  arrival  ai  srir. 

L 

I. 

C«  «  •  «  9  lOSOt'  *  6U>. . 

(. 

c 

IF  (VO)  'IF  (o),  (,U  10  4NNN 

(. 

T  INI)  HhS).  FOR  f  ACF  w  in  Ht;UF  ,  W|  in  I H  j  (  M )  )  F(.  (TRSN), 

A  AND  (HblM) )  F U  (VA! , 

XF.HFKI  I M*  IF  NL’NT  ,  f.P  Tl; 
t 

CRfcATt  NilM  CALL*  D  N 
STOXt  fflHF  IN  NllN) 

STJHF  rriF-F  IN  N12IN) 

*  TORT  *  j| |M)  IN  N JIN  I 
MOR<  MAI  IHI  IN  ,K(N) 
j Tom  MAI  |M|  IN  MINI 
”»  rriRF  MSI  |  M  )  IN  N10INI 
MURF  I  DStlH  IN  NUINI 

c 

FIL*  N  IN  NUUF 

c 

l  FT  UA  r  i i A  ♦  l 
LFI  IV.  *  1)6  ♦  l 

C. 

■UHOVI  |H  FROM  HyUf 
I’fcSlRfV  |H  CALLFD  I M 
C 

4<»<*‘4  1ft  DAN 

•  NO 


•  1 1  Me  A I  NOC 

SOHRflUl  INF  R1900 
L 
L 

c . PUHPOSC  -  OfNfHAll  PROP!  «  MSI  Tt  F OR  RMURNJNU  t *  AMS.  Ik'O'-') 

C 

C 

C.....IOSUH  *  1**00. 

c 

r. 

if  («*imri  £•;  <oi,  &c  fo  **<*9v 

CALL  ROTL 
I 

If  IVCI  OF  (HSItf  i»  LIT  f>SI  TV  •  VC  ♦  | 

C 

RRR9  HfTORN 

>140 


r»  <~ 
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i 

■t 


*  I BF  TC  «2000 

SUBROUTINE  R 

c 

(. 

L . PURPCSt  -  Kfcuuesr  FOR  pp. 

c. 

C 

f- . IOSUP.  =  2000. 

c 

c 

CRFAfF  OP  CALL  f  0  P 
C 

STUKF  kl  l*t  IN  PUP) 

STORt  Vtt  !N  p?(p| 

MORE  r R$M  IN  PS(p| 

C 

f  ILC  P  IN  PUUI 

(. 

‘*999  RETURN 
FNC 


•IHFTC  R? 1 00 

SUBROUTINE  R  2 l 00 
PURPiiSI  -  TO  START  *>0k  f  OR  pp„ 


•  ^ I  US UP  »  2100. 


T  INU  FIRST*  KiR  fALH  M  |n  POijf 
XAND  <P?(M)I  EC  I V6 I,  WMF  RF  fp, 

CRfATf  Mfl#  CALLED  N 

C. 

STORE  et  ine  IN  NUN  I 
STORE  tT|*£  ]N  NI21NJ 
STORF  P?IIP|  in  ntint 
STORF  Vt  IN  NRINI 

STORF  PAI  IP  |  IN  F,<jf  n  j 
STOMl  P^I  IP j  in  N  1 01 N ) 

SfOKF  I OSUR  IN  Nl  UNI 
l 

Mlf  N  IN  MaOl 
C 

i£T  0*  >  D*  t  1 
LET  06  *  06  ♦  l 
C 

RENnvr  ip  r«ON  pout 

rCSTROY  PN  CAL  l  El)  IP 
L 

9999  RETURN 
END 


PI  TH  T  P‘U  *)  »  tO  I  i  R  .f  )  f 
IF  NUF.F  ,  (iO  IP  99  *9 


n  n  n  n  ,1  n 
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*  i  bftc  R?r>r 

SUBROUT  !NE  R?l«<; 

PUKHUnF  -  TO  START  NOR  K  IF  FMI.URF  CAUSED  BY  MM. 


IDSUB  =  2  IS 3. 
C 
(. 


c 

c 


c 


f. 


DO  TO  l,  FOR  EACH  FLVL, 
IF  I  Vu  I  FO  IFIVLIIM,  GO 
I  LOOP 

(iO  TO  '4't99 


2  CRT  A  i  F  fjOR  CALLED  N 


STORK  FT  IMF 
STORK  FUME 
STORr  vl'. 

stukf  va 
stork  trsm 

"  (TORE  TDSUB 


IN  NIINI 
IN  \*  l  21  N  ) 
IN  N  31 M 
IN  N  4  (  N ) 
IN  NIO(N) 
IN  NIKMI 


Fill  N  IN  NOUC 


LET  04  =  P4  ♦  l 
LET  06  -  ()6  ♦  1 
l 

9999  RETURN 
END 


TO  l 


nfr.nnnnn 


•ffif-rc  R2300 

SUPROUTINC  R2300 


MUHPl,Sh  '  TC  STASr  N,)K  ^!R  AI.FRT -CONTINUOUS  MONITOR 
IOSUO  =  2300. 


I  ')  Ttl  l»  FOR  FACH  ftVLS  f  i 

IF  (V A)  t Q  IfLVK  II),  GO  Hi  i  1 

1  LOOM 

GO  TO  9999  i 

C  | 

2  CREATE  NOR  CAllff;  f,  I 

C  j 

STOKE  FT  [ME  IN  NIIM  ! 

STORE  FT [ME  IN  N12IN l  i 

STORE  VH  |N  N3(N| 

STOKE  VA  |.N  NA|N) 

STOKt  TK$N  [N  NlO(N) 

STORE  [OSUB  [N  N1  1(N  » 

FILE  N  IN  NUUf 

l  ET  0*  s  0-v  ♦  j 
LET  OF  =  06  ♦  i 

9099  RETURN 
ENO 


i 


-36- 


•IPFTC  H2400 

SUnROUUNF  R?400 
C 
t 

C . PURPOSE*  -  RESOURCE  REOOr<T. 

c 

c 

C . IOSUR  =  2400. 

C 

C 

IF  (MORF)  Eu  (0),  GC  TO  ')99-< 
{.ALL  ROTE 
C 


IF 

IOTI.VI  ) 

tu 

( n. 

CO 

TO 

I 

IF 

(OILVl ) 

Eg 

(2), 

GO 

in 

? 

IF 

(OIIVI ) 

■  Q 

(3), 

GO 

in 

3 

IF 

(I)TtVl  ) 

r  g 

(4», 

GO 

TO 

4 

IF 

( OIL  V 1  ) 

ru 

(  S  F , 

GO 

TO 

ri 

IE 

IOTLVI  ) 

EL 

(M, 

r.n 

TO 

6 

GO  Tb  9999 
C 

1  HIND  FIRST,  FIR  EACH  M  If.  NUJE  ,  «l  TH  (NllIM)  EU  (23(D), 

X  AND  (N  |0|  Mil  EU  IlKSM),  AND  1*31*))  t‘.v  <  Vf 3),  WHERE  IN,  IF  NOME, 
X  GO  TP  9999 
C 

STORE  VC  IN  NOMM 
GO  10  9999 

c 

?  FIND  FIRST,  FIR  EACH  M  |  ,  gt,uE  ,  cl  F H  (NllIM))  r«  II1U), 

XANO  ( NIDI  MM  CD  (TRSN),  AMO  IN'3(M))  fn  I  VB  )  ,  WHERE  IN,  IF  NON*’  , 
XGE)  FO  9999 
C 

STORE  VC  IN  IN) 

GO  ID  9999 
C 

J  FIND  FIRST,  FOR  EACH  M  IN  NCUf  ,  WITH  (Nil  (  M)  )  EU  (2S00), 

XAND  ( f  J 1 0 ( M  )  )  TO  I TR  SM ) ,  ANU  f  N3  C  Ml  I  E U  (VU),  WHERE  IN,  IF  NONE, 
XGO  TO  999 9 
C 

STORE  VC  IN  N9 1 IN) 

GO  TO  99(9 

C 

4  FIND  FIRST,  FOR  EACH  H  IN  PC(jL  ,  WITH  I  PS  IK))  FO  (  TRSM)  , 

XANO  (P2(M))  FO  IVB),  WHI  RF  IP,  IF  NONF,  GO  TO  9999 

C 

STOKE  VC  IN  P4 (IP) 

GO  TO  9999 
C 

5  FINU  FIRST,  FOR  EACH  M  IN  Nguf  f  WITH  INIICMM  FO  (21S0), 

XANO  INIO(M))  F.U  ( TR  SM  I »  AND  (N3(M))  FU  I  VO )  ,  WHF  RF  IN,  IF  NONF, 
XGO  TO  9999 
C 

STORE  VC  IN  N9| IN  I 


r>  n  n  n  n  r>  n  r. 
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on  TO  9999 
C 

6  MND  FIRST,  fUK  F  ACH  M  |m  HUUf  »  V- 1  1 M  IM5IMII  TU  CTKSM, 
XANO  ( HP  {Mil  LO  <VH),  WHTRf  III,  (I  NONi  ,  GO  ft  * 

C 

jTURf  VC  IN  HA ( ! M I 
GO  TP  9999 
C 

'*999  UPTURN 
hNO 


*  I hFTC  K2NOU 

SUHROU  TINT  R2t-OL 


. PURPOSL.  -  TO  START  NOR  f  f’R  UNO£  TF  KM  *«FI>  T  A  I  LUR  t. , 


IDSUG  *  2500. 


10  TO  l,  FOH  FACH  FI  VI S  t 
IF  ( V  A  |  FO  (FIVLI  II),  GO  TCI  ^ 

1  LOOP 

GO  TP  90qq 
C 

2  CREAIF  NOK  CAlltO  N 

C 

STORE  bTIMt  IN  NUNI 
STOKf  F  T  IMF  IN  N 1 2 ( N  ) 

STOKF  VH  IN  N  MM 
STORF  VA  IN  NAIM 
STORE  TKSM  IN  NIOINJ 
STOR^  IOSUB  IN  MUNI 
G 

FILf  N  IN  NOUt 
C 

LET  HA  =  DA  ♦  l 
l  FT  Cfc  i  Ofc  *  1 
C 

9999  M FT  URN 
FND 


•  IftML  REPORI 

SUBRUUriNK  REPORT 

f. 

r. 

C . PURPOSE  -  TO  REPORT  NOR  T I  Pi.  AS  UE  A  GIVEN  TIME. 

c 

C 

€ . CALL  TO  I'Y  RLfU  OR  R  T  • 

C 

c 

LET  IP  =  05 

in  in  =  n? 
c 

200  00  TD  20 9*  FOR  EACH  M  IN  NwUE 

c 

LCT  I  IMEN  =  Kl  IMF  -  I.UMI 
Lfcl  IIMEM  =  RTIME  -  N12D  ) 

LET  Nil*)  «  RT IMF 
t 

LEI  02  *  1)2  ♦  I  IMTN 
LCT  IH  *  03  ♦  TIMfN 

C 

I  FT  SUMP?  *  iUMP  ?  ♦  TIMEN**? 

LIT  SUMO?  =  SUMO?  ♦  TIMES**? 

C 

LET  IP  *  IP  ♦  l 
LFT  10  *  10  ♦  1 

C 

IF  IIIMFN)  If  lOlU,  GO  TO  201 
LET  OH  *  TIMEN 
C 

201  IF  MIMFNI  LE  (09)  f  GO  TO  202 
l  FT  IV)  *  TIMEN 

C 

202  IF  (TIME*)  Lk  (OUT,  (ill  TO  299 
LET  OH  «  IIMEM 

C 

299  RFPfcAT  200 
t 

IF  IL INF t  EQ  1 0) «  GO  10  2 
IF  (LINE)  EU  150).  GO  TO  2 
C 

t  LFT  01  «  RIIMf 

if  ( i sump 2  -  ifloatup)  ♦  102  /  floaiiipi**2) )>  /  (floatiipi)) 

M10,  10,11 

10  LET  1)11  «  0.0 
GO  Tfl  12 

11  LFT  01 i  »  SORT  1 1  SUMP 2  -  irLOATIIP)  *  ( 02  /  F LOAF i I P) **2))) 

X  /  I FLOAI IIP))) 

12  IF  (ISUM02  -  (FLOAT! IU)  *  105  I  FLOAT! 10)992)1)  /  (FLOAT  CIO))) 
XII,  13,14 

13  LFT  015  «  0.0 
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14  LET  015  =  SCKTHSUMD,'  -  'FLOAT!  If  )  *  (03  /  FLOA  f  I  I  D>  ♦  *? »»  I 

X  /  (  FLOAT  110))) 

15  LET  'MU  =  H?  /  FLOAT!  IP  ) 

LFT  014  =  03  /  FLOAH  5U) 

C 

IF  ( UP  f  UR  ( V9999.0),  LI  7  I » 0  =  0.0 
LET  SI?  =  01? 

IF  (Ol?»  GR  (99999.0),  LET  012  =  0.0 
L 

CALL  UTAH 
C 

Lf  1  L  INF  =  I  INF.  ♦  l 
C 

ter  hiii  r  =  t  ik  i  ♦  vriMr  ♦  .00001 

c 

l  FT  l  ?  =  0.0 
LET  04  =  0 
LET  U5  =  0 

LFT  OB  =  999)9.99999 
LtT  09  =  0.0 
LET  01?  =  S 1 2 
LET  SUMP?  *  0.0 
C 

Gfl  TO  9999 
C 

2  CALL  HU  I  if. 

Lf T  Ll.’U  =  0 
GO  TO  I 
C 

9999  RETURN 
tfO 


♦  IPFTC  HP  I NG 

REPORT  HDINU 

*  . NOR  TIME  RIPORT . 

*  TIMC  I  IMF  THIS  PER  TO  OAIt  . f 

♦  PPRIUU  THIS  PFR  TO  UATF  IN  OuT  IN  1101  MJ'l 
END 


? 

s  p  f  R  l  u  0 . .  u  0  A  T  E . 

AX  AVG  STI  UrV  MIN  MAX  AVG  STO  7>E  7  1 

END 


MRFTt  OTAIL 

REPORT  UTAIL 

*  *♦♦*,**  ***+.*«**  «*«*.****  ****  *****  MM  ****  *#**.**♦* 

*  01,0?,  03,  04,1)4,06,07,00,09,010,011  ,012,01  3,014,1)15 

FNU 

,♦***  **«*.**«*  )M*,)M«  ****.****  *♦,*.****  **»*,**•*  +***,«*** 

L  Nl 


H  I 
P 

4 


**** 

* 

* 

* 
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26  OR 

27  1  R  10  26 

0 

1 


lo 

un 


28  32  0  l 

3  3  OR 

34  V  0  Z 

*>3  OP 

54  u  Z 

*>9  *>6  0  Z 


009.99999 
0. 99999 
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II.  WEAPON  SYST^  AVAILABILITY 

The  Weapon  System  Availability  program  can  be  used  with  either 
aircraft  or  missiles.  It  displays  the  off-alert  time  by  tail  number 
as  well  as  a  chronological,  time-oriented  listing  of  what  happened 
while  the  site  was  off  alert.  This  output  is  shown  in  Fig.  10.  An 
explanation  of  each  of  the  column  headings  follows. 

Event  Time:  The  simulated  time  at  which  the  various  events  take 
place . 

Tail  No.:  The  tail  number  of  the  site. 

Site  Type:  The  site  type  number  specified  in  the  ABC  simulator 
Exogenous  Event  Genera  data  card,  Col.  13. 

SQUAD:  Squadron  or  Base  number  chat  was  specified  in  the  ABC 
simulator  Exogenous  Event  Genera  data  card,  Cols.  19-20. 

Init  Stats:  Indicates  Che  initial  status  that  removed  the  site 
from  the  available  status.  Codes  are  as  follows: 

AA  ■  Detected  failure 
AB  -  Latent  failure 
SB  *  Exogenous  failure 

OH  »  Unit  removed  for  overhaul  or  time  replacement 
01-12  »  Periodic  Maintenance  number 

Total  Off-Alert:  Indicates  the  actual  amount  of  time  (days, 
hours ,  minutes)  that  Che  site  is  (net)  available. 

Evnt  Stat:  Indicates  Che  events  chat  occurred  while  the  site 
was  not  available.  Codes  are  a &  follows: 

AA  *  Detected  failure 
AB  *  Latent  failure 
U  ■  Exogenous  failure 

OH  -  Unit  removed  for  overhaul  or  tie*  replacesMnt 
01-12  -  Periodic  Maintenance  number 
AD  -  Demand 

AT  *  Team  Dispatched  by  Base  Control 

AS  -  Team  Arrives  at  Site 

XA  *  Maintenance  Successfully  completed. 
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FD  -  Personnel  failure  during  maintenance 
FE  -  Equipment  failure  during  maintenance 
FS  •  Spare  part  failure  during  maintenance 
SYST  FAIL:  Indicates  the  Unit  responsible  for  the  demand. 

FAIL  LEVL :  Failure  level. 

LAG  TIME:  The  time  the  maintenance  team  arrives  at  the  site 
minus  the  time  the  team  is  dispatched  (AS  *  AT)  in  days,  hours, 
minutes  . 

PUR  TIME:  The  time  that  the  site  is  not  available.  The  time 
that  the  maintenance  is  successfully  completed  minus  the  time 
that  the  site  went  off  alert.  (XA-AA)  or  (XA-AB)  or  (XA-EE)  or 
(XA-OH)  or  (XA-01  to  12) . 

ALERT  Den-  Time:  The  time  that  maintenance  was  successfully 
completed  minus  the  time  of  the  failure.  In  the  event  of 
multiple  failures,  the  subsequent  depredation  tune  will  he  from 
fix  time  to  fix  time. 

SECJ  No  :  Se  l  f-exp  1  anat  ory  . 

TIP:  Team  Iden t » f 4 cat  ion  number  used  only  for  program  checkout. 

RIP:  Request  Identification  number  used  for  program  checkout. 

SIP Site  Identification  number  used  lor  program  checkout. 

EVNT :  Label  Record  number  printed  by  the  simulation  phase. 

The  last  pat,*  of  the  report  will  display  the  status  of  the  site# 
et  remain  not  available  at  the  end  of  simulation. 
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Fig.  10  --  Weapon  System  Availability 
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INITIALIZATION 

Table  2  lists  the  Initialization  requirements.  Only  seven  Arrays 
require  initialization.  Array  23  is  the  total  number  of  bases  to  be 
examined.  Array  24  lists  the  base  numbers  (quantity  specified  in  Array 
25).  Array  26  is  the  quantity  of  different  failure  levels  to  be  counted 
in  the  report.  Array  27  lists  the  failure  level  numbers.  Array  28  is 
the  quantity  of  status  codes  to  be  included  in  the  report.  Array  29 
lists  the  status  codes.  Array  33  specifies  the  time  for  the  end  of 
the  report.  All  of  the  other  arrays  are  set  to  zero. 

The  initialization  instructions  for  unsubscripted  and  subscripted 
system  variables  are  contained  in  Part  1,  Sec.  II  of  this  Memorandum. 

OUTPUT  PROGRAM 

The  input  to  this  program  is  the  tape  generated  by  the  ABC  Simulator. 

The  input  tape  consists  of  a  12-variable  label  record  and  is  some¬ 
times  llowed  by  a  10-variable  detail  record.  (See  pages  108  and  109 
of  RM-4659-PR) . 

When  a  label  record  is  read,  the  value  of  EBAS  Is  compared  with 
the  table  called  BASES.  If  they  are  equal,  the  record  is  processed. 
Therefore,  any  combination  of  1  or  more  bases  may  be  run  at  one  time. 

When  a  label  record  is  read,  the  value  of  the  failure  level  is 
compared  to  the  table  called  FLVLS.  If  they  are  equal,  the  record  is 
processed.  Therefore,  any  combination  of  1  or  more  failure  levels  may 
be  run  at  one  time. 

The  output  display  is  given  whenever  a  SITE  is  returned  to  on- 
alert  status. 

If  ETIME  is  greater  than  TMEND,  REPORT  is  called  and  the  output 
is  displayed.  The  run  is  then  terminated. 

A  list  of  status  codes  for  the  STATS  table  it.  given  on  page  44. 

PERMANENT  VARIABLES 

This  list  is  complete  except  for  attributes  denoting  first-of-set 
and/or  laat-of-set  and  predecessor  and/or  successor  of  set. 
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Table  2 

VARIABLE  DESCRIPTION  AND  INITIALIZATION; 
WEAPON  SYSTEM  AVAILABILITY 
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Label  records  (see  page  108  of  RM-4fe59~P8) , 


IDSOR 

-  Idr 

IDSUB 

*  Idd 

SHFT 

•  Shift 

DAW 

•  Dy/wk 

SXDW 

-  S/wk 

EBAS 

■  Base  no. 

VA 

-  Variable- 1 

VB 

■  Varlable-2 

VC 

■  Varlable-3 

TRSM 

■  ID  Addresses 

MORE 

-  Drl 

ETIME 

-  Event  time 

Detail  records  (see  page  109  of  RM-4659-PR). 

DTLV1  •  Integer  variable  1 
DTLV2  ■  Integer  variable  2 
DTLV3  ■  Integer  variable  3 
DTLV4  -  Integer  variable  4 
DTLV5  ■  Integer  variable  5 
DTLV6  ■  Integer  variable  6 
DTLV7  -  Integer  variable  7 
DTLV8  ■  Integer  variable  8 
DTLV9  ■  Float  variable  1 
DTLVO  •  Float  variable  2 

Base  table. 

BASES  ■  Nuaber  of  base  codes  to  be  processed. 

BASE  ■  Base  codas  to  be  processed. 

BFLAC  -  Controls  flow  of  events  as  a  result  of  EBAS  vs  BASES, 
'ilure  level  table. 

FLVLS  “  Nuaber  of  failure  codes  to  be  processed. 

FLVL  •  Failure  level  codes  to  be  processed. 

Status  code  table  (See  Fig,  10). 
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STATS  ■  Nu  ber  of  status  codes  in  table. 

STAT  *  Status  codes  (Alpha). 

TMEND  «  Time  initialized  to  end  this  run  prematurely. 


SETS 

Name  ■  SQUE  used  for  site  events.  No  subscripts.  Ranked  on  SERNO. 
Owner  ■  SIMSCRIPT  system. 

Member  ■  SITES 

SID  *  Site  ID  number. 

SMODE  -  Mode  of  site. 

SERNO  *  Tail  number  of  site. 

ERASE  -  Base  number  of  site. 

SINO  ■  Number  (1-n)  assigned  to  site  by  the  program. 

NFAIL  ■  Number  of  failures  occurring  at  the  site. 

Name  »  EQUE  used  for  site  events.  One  subscript.  Ranked  on  El. 
Owner  -  SITES. 

Member  -  EVENT  (Used  for  reporting  display).  (Time  in  hours,  days, 
minute  3) . 

El  ■  Event  time. 

E2  *  Event  status. 

E3  -  System  failed. 

E4  ■  Failure  level. 

E5  ■  Lag  time  (Traveling  time). 

E6  -  Duration  time  (Failure  time). 

E7  ■  Alert  degradation  time. 

E8  ■  Team  ID. 

E9  ■  Request  ID. 

E10  -  Site  ID. 

Ell  -  IDSUB. 

E12  -  Initial  atatua. 

E13  ■  Total  off-alert  time. 

E14  ■  Sequence  number  of  event . 

Name  ■  PQUE  used  for  preventive  maintenance  events.  One 
subscript.  Ranked  on  PI. 
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Owner 
Membe  r 


Nome 

Owner 
Membe i 


Statue 


-  SITES. 

-  PM 

PI  *  Preventive  maintenance  request  time. 
P2  ■  System  requesting  PM. 

P3  *  Regular  or  exogenous  PM  flag. 

P4  ■  Request  ID. 

P5  -  Site  ID. 

P6  ■  Status  code. 


*  HQUE  used  for  overhaul  events.  One  subscript.  Ranked 
on  HI . 


-  SITES. 

-  OH 

HI  *  Overhaul  request  time. 

H2  ■  System  requesting  overhaul. 

H3  *  Team  ID. 

H4  •  Request  ID. 

H5  -  Site  ID. 

H6  -  Status  code, 
code 

STAT  •  1-100  are  alpha  for  blank/00. 


101  is  alpha 
failure . 

for 

AA 

code 

for 

102 

Is  alpha 

for 

AB 

code 

for 

103 

Is  alpha 

for 

AD 

code 

for 

104 

is  alpha  for  AT 

code 

for 

105 

Is  alpha 

for 

AS 

code 

for 

106 

la  alpha 

for 

L0 

code 

for 

107  la  ha 

at  site. 

for 

FE 

code 

for 

108 

Is  alpha 

for 

XA 

code 

for 

109 

la  alpha 

for 

22 

code 

for 

110 

la  alpha 

for 

OH 

code 

for 

111  la  alpha 
at  site. 

for 

FP 

code 

for 

112 

la  alpha 

for 

FS 

code 

for 

113 

-200  are  not  In  use. 

01-99. 

a  continuous  monitor 

an  undetermined  failure, 
a  demand  at  base  control, 
a  team  dispatch  by  base, 
a  teem  atrlvel  at  site, 
e  teem  loet  en  route, 
en  equipment  failure 

maintenance  completed, 
exogenoue  failure, 
•xogenoue  ova  rhau 1 . 
a  pereonnel  failure 

a  parte  failure  at  site. 
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♦IRFTC  MAIN 

MAIN  ROUTINE 


PLANET  -  WEAPON  SYSTTM  AVAILABILITY 


. PURPOSE  -  TO  REPORT  OFF-ALERT  STATUS. 

. INPUT  -  TAPE  FROM  ABC  MODEL. 

. OUTPUT  -  PRINTER  (SIMSCRIPT  RPG). 


CALL  HOING 
C 

REWIND  9 
l  CALL  RUU. 
CALL  SELECT 
C 


IF 

(  IDSUB) 

EU 

1  3), 

GO 

TO 

3 

IF 

(BFLAGI 

NE 

(  0), 

GU 

TO 

9999 

IF 

(  IDSURJ 

EO 

(  100), 

GO 

TO 

100 

IF 

(  IOSUB) 

EQ 

(  110), 

GO 

TO 

110 

IF 

( IDSUB I 

EU 

I  200), 

GO 

TO 

200 

IF 

(  IOSUB) 

EG 

(  500), 

GU 

TO 

500 

IF 

(  IOSUB) 

CO 

(  600), 

GO 

TO 

600 

IF 

( IDSUB) 

FI¬ 

I  800), 

CO 

TO 

800 

IF 

I  IDSUB) 

FO 

(  900), 

Gfl 

TO 

900 

IF 

(  IDSUB) 

EQ 

(  925), 

GO 

TO 

925 

IF 

(  IOSUB) 

EO 

I  950), 

GO 

TO 

950 

IF 

(  IOSUB) 

EO 

( 1900), 

GO 

TO 

1900 

IF 

1 IDSUB) 

FU 

(2000), 

GO 

TO 

2000 

IF 

<  IDSUB) 

EQ 

(21001, 

GO 

TO 

2100 

IF 

(  IDSUB) 

EO 

(2150), 

GO 

TO 

2150 

IF 

( IDSUB) 

EO 

(2300), 

GO 

TO 

2300 

IF 

1 IDSUB) 

Fu 

(2400), 

GO 

TO 

2400 

IF 

(  IDSUB) 

EO 

(2500), 

GU 

TO 

2500 

C 

GO  TO  9999 
C 

3  CALL  R1 
CALL  EXIT 

C 

IOO  CALL  R100 
GO  TO  9999 
C 

110  CALL  R 1 10 
GO  TO  9999 
C 


i 
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POO  CALL  R200 
GO  KJ  9999 
C 

500  CALL  R500 
GO  TO  9999 
C 

600  CALL  R600 
GO  TO  9999 
C 

800  CALL  R800 
GO  TO  9999 
C 

900  CALL  R900 
GO  TO  9999 

4 r 

W  925  CALL  R925 
GO  TO  9999 
C 

950  CALL  R950 
GO  TO  9999 
C 

1900  CALL  R1900 
GO  TO  9999 
C 

2000  CALL  R2000 
GO  TO  9999 
C 

2100  CALL  R2100 
GO  TO  9999 
C 

2150  CALL  R2150 
GO  TO  9999 
C 

2300  CALL  R2300 
GO  TO  9999 
C 

2A00  CALL  R2400 
GO  TO  9999 
C 

2500  CALL  R2500 
GO  TO  9999 
C 

9999  IF  (MORE)  EQ  (0).  GO  TO  1 
CALL  ROTL 
GO  TO  9999 


C 


ENO 


o  x  r  r»  n  rs 
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♦IPFTC  KLHl 

SUBROUTINE  RLBL 

...READS  S-PHASf  TAPH9)  Ii'IN  MOOT) . 1  ABEL  RECORDS. 

LET  c»FLAG  *  0 

READ  (9)  II, 12, II, 14,15,16, 17,18,19, 110,111, II? 

STORE  II  IN  I0SUR 
STORT  I?  IN  ICSUW 
STORT  II  IN  SHF T 
STORE  14  IN  DA VW 
S T CJ K I  IS  IN  SXL'W 
STORE  16  IN  EBAS 
STORE  17  IN  VA 
STORE  18  IN  VB 
STOKE  19  IN  VC 
STORE  HU  IN  TKSM 
STOKi  III  IN  MORE 
STORE  11?  IN  tTIME 
C 

IF  I l TIME)  liR  ( TMFNO 1 ,  GP  Tfi  1 

c: 

WE  I  URN 
C 

l  CALL  R 1 
CALL  CXIT 

I  NO 


C 


o  o  o  o  o  #  o  o  0x000 
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♦  1HFTC  RUT L 

SUBROUTINE  RUTL 

... REARS  S— P  HA  St  TAf‘H9>  (BIN  MUOE  ) . DETAIL  RECORDS. 

READ  1  9  )  !1,  12.  I  1,  14,  l!».I6*l  /,  18,19,110 

STORE  II  IN  0TLV1 
STORE  12  IN  0TLV2 
STORE  13  IN  DTLV3 
STOKE  I A  IN  UTLV4 
STOKE  l*  IN  UTL  V^> 

STORE  IT  IN  0TLV6 
STORE  17  IN  0TLV7 
STORE  Ifl  IN  DTLV8 
STOKE  19  IN  0TLV9 
SlORT  IIO  IN  DTIVC 

LET  MflKE  *  MORE  -  1 

RETURN 
f  NT) 


IBETC  SELECT 

SUBROUTINE  SELECT 


PURPOSF  -  TO  SELECT  EVINTS  BY  BASE. 


DO  TO  1,  FOR  EACH  BASES  I 
IF  (LBASI  FQ  I  BASE  I  II  )  t  GO  TO  ? 

1  LOOP 

LET  BFLAG  «  l 
GO  10  9999 

2  LET  BFLAG  »  0 
GO  TO  9999 

9999  RETURN 
FNO 


ooouuuou 


•IBFTt  R3 

SUB°QUTfNE  R3 

PURPOSE  -  TO  CLOSE-OUT  AND  END  R-PHASE. 

IDSUB  *  3 


CALL  HDING 
C 

LET  ILINES  *  0 
C 

1  00  TO  2,  FOR  EACH  IS  IN  SWUF 
CALL  KEPUKTUS.  ILINES) 

2  REPEAT  1 
C 

CALL  PUHD 
C 

3  00  TO  6,  FOR  EACH  IS  IN  SOUE 

4  00  TO  5.  FOK  EACH  IP  IN  POUb(IS) 

C 

CALL  PORPGI IS* IP ) 

C 

5  REPEAT  4 

6  REPEAT  3 

C 

CALL  HO HD 
C 

7  00  TO  10,  FOR  EACH  IS  IN  SOUE 

8  DO  TO  9,  FOR  EACH  IH  IN  HUUEIIS) 

C 

CALL  HORPGIIStlH) 

C 

9  REPEAT  8 

10  REPEAT  7 

C 

REMIND  9 
C 

RETURN 

END 


nonnnnnn 
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* I8FTC  RIO^ 

SUBROUTINE  R100 


.....PURPOSE  -  M.L-RT  DEMAND  ARRIVAL  AT  BA  sk  CONTROL  • 


IDSUU  *  100. 


C 


C 


Ik  (WORK)  El)  (0),  GO  TO  9999 
CALL  Rim 


FIND  FIRST,  FOR  EACH  M  IN  SuUF  ,  WITH  (StD(M)I  EO 
XWHERf  IS,  SF  NONE,  Gl)  Tl) 


FIND  7 IRST,  FOR  EACH  N  IN  EUUEIIS),  WITH  '  9(NI) 
XWHERE  (F,  If  NOME,  GO  Tn  9999 

0 

CREATE  EVENT  CALLED  E 

STORE  ETIME  IN  El(E) 

STORE  E 3 (  Ifcl  IN  EJIE  ) 

STORE  EA (  IE  )  IN  FA(  E  I 
STORE  IOSUB  IN  EU(E> 

STORE  STATII03I  IN  E?(F) 

FILE  E  IN  EQUE (IS) 

9999  RETURN 
ENO 


lOTLVl), 

F  W  ITRSM), 


o  r*  o  non  o  non  n  nonnnpnn 
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•I8FTC  Rl 10 

SURRUUT INE  RUO  | 

. PURPOSE  -  EXOG.  FAILURE,  EXOG.  PM,  LXOG.  OVERHAUL. 

• . • . • I0SUB  *  110. 


FIND  FIR^r,  FOR  EACH  M  IN  SOUE,  WITH  (SIOtMii  EO  ( TRSMI , 
XWHERE  IS,  IF  NONE,  GO  Til  9999 

IF  (VCI  EO  (2»,  GU  TO  2 

I.  (VC)  EO  (A),  GO  TO  A 

IF  (VC)  EO  (6),  GO  TO  6 

(.0  TO  9999 

. EXOG.  FAILURE. 

2  00  TO  20,  FOR  EACH  FLVLS  I 
IF  (VB!  CO  (FLVL(I)),  GO  TO  21 

20  LOOP 
GO  TO  9999 

21  LET  NFAILdSI  *  NFAIL(IS)  ♦  1 
CREATE  EVENT  CALLED  F 
STORE  CTIME  IN  EKE) 

SlURC  VA  IN  C  3( E  l 
STORE  VB  IN  FA(E) 

STORT  TRSM  IN  E 10(E) 

STOKE  IDSUB  IN  E  11(F) 

FILF  f  IN  FUUF(IS) 

GO  TO  9999 

. EXOG.  PM. 

A  CREATE  PM  CALLED  P 
STORF  ETIME  IN  PKP) 

STURF  VA  IN  P2(P) 

STORE  IOSUB  IN  PKP) 

STORE  TRSM  IN  PS(P) 

FILE  P  IN  PQUEI1S) 

GO  TO  9999 

. EXOG.  OVERHAUL. 

6  CREATE  OH  CALLEO  H 
STORE  ETIME  IN  H1(H) 

STORE  VA  IN  H21H) 

STORE  TRSM  IN  HS(H) 

FILE  H  IN  HOUE(IS) 

GO  TO  9999 
C 

9999  RETURN 
FNU 


nooononn 


I 


♦IBFTC  R200 


SUBROU T INF  R  200 


.PURPOSE  -  MA  INTENANCE  COMPLFTEP. 


IOSUB  =  200. 


IF  ( HORF I  FU  (0),  GO  TO  0909 
CALL  ROTL 

FINO  FIRST*  FOR  FACH  H  10  SOUP*  WITH  (SIDIM))  EO  I DTLVl >  * 
XWHERF  IS.  IF  NONF ,  GU  TO  9999 

FINO  FIRST*  FOR  FACH  N  IN  EWUFIJS),  WITH  (ERIN))  FU  ( TRSM) * 
XWHERF  IE,  IF  NONF,  GU  TO  9999 

CREATE  EVENT  CALLED  E 

STORE  ETIME  IN  El(E) 

STORE  STATI  10R)  IN  E2IE) 

STORF  F3I  IE)  IN  E3IE) 

STORE  EM  IE)  IN  EM  E  ) 

STORF  IOSUB  IN  E  1 1(E) 

LET  E8I  IE )  •  0 
LET  F9I  IE)  «  0 
LET  FIOIIF)  «  0 


LET  Ffel  IF)  «  ETIME  -  Ell  IT  ) 

FILE  E  IN  EUUFI  IS) 

LET  NFAILI  IS)  *  NFAIIII S)  *  I 

IF  (NFAIL(IS)I  EU  (0),  GO  TO  99 
GO  TO  9999 


99  CALL  REPORT (  IS,  IL  INES) 

9999  RETURN 
ENO 


•IHfTC  R500 


SURROUT  INF  R500 
C 
c 

C . PURPOSE  -  Tt AM  DISPA1CH  I’Y  HASE  CONTROL. 

C 

c 

C.....IDSUB  *  *>00. 

C 

C 

IE  (MURE)  CO  (0),  GO  TO  9999 
CALL  ROTL 
C 

IF  (OTLVA)  LO  (MSITt),  GO  TO  9999 
C 

LINO  FIRST*  FOR  EACH  M  IN  SQUF,  WITH  (SIO(M))  FQ 
XWHERf  IS,  IF  NONE,  GO  TO  9999 
C 

F  INI)  FIRST,  FOR  EACH  N  IN  FCUF(IS),  WITH  (E9(N)> 
XWMtKt  IE,  IF  NONC,  GO  TO  1 
C 

CREATE  FVCNI  CALIEO  F 
C 

STORE  0TLV9  IN  F.  1  (  F  I 
STORF  E 31  IF  I  IN  C3(EI 
STORE  EM  IE)  IN  EMI  ) 

STORE  TRSM  IN  ERIE) 

STORE  IDSUB  IN  Fll(E) 

STORE  STATU04)  IN  I  2(k  I 
C 

FILE  E  IN  EUUE (IS) 

C 

STORE  TRSM  IN  E*<  IE  ) 

C 

GO  TO  9999 
C 

1  FIND  FIRST,  FOR  EACH  M  IN  HQUEIIS),  WITH  (HMM)| 
XWMERf  IH,  IF  NONE,  GO  TO  9999 
C 

STORF  TRSM  IN  M3I IH) 
t 

GO  10  9999 
C 

9999  RETURN 
END 


(0TLV1 ) 

Eg  (vc) 


EU  (VC) 


oonooooo 
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♦  SPf-rc  R60n 

SUBROUTINE:  R600 


PURPOSE  -  TEAM  ARRIVAL  AT  SI  If . 


IDSUB  *  600. 


FIND  FIRST,  FOR  EACH  t*  IN  SCUT,  WITH  (SIOIMI)  EO  IVAI, 

X WHERE  IS,  IF  NONf,  GO  TO  999V 
C 

IF  (VR)  EO  (61,  GO  TO  6 
C 

FIND  FIRST,  FOR  EACH  N  IN  f.UUFUS),  WITH  (Eb(N) )  Eg  (TRSM)  , 
XAND  (Fll(N)l  EO  (500),  WHERE  IE,  IF  NONE,  GO  TO  9999 
C 

LET  TLAG  »  ETIHE  -  E 1  (  IF ) 

C 

LET  1 8 (  IE)  *  0 
LET  T9(  It)  *  0 
Ltl  riO(IE)  «  0 
C 

FIND  FIRST,  FOR  EACH  N  IN  EQUE(IS),  WITH  (E8(N)I  EQ  (TRSM), 
XWHERF  It,  IF  NONE,  GO  TO  9999 
C 

LFT  F5I IE)  «  ESI  IE)  ♦  TLAG 
C 

CREATE  EVENT  CALLED  E 
C 

STORE  ETINE  IN  IlM  ) 

STORE  E3I  IE)  IN  F  31 1  I 
STORE  EAllEI  IN  t  A(  F  I 
STORE  IDSUB  IN  F  1 1  ( E  ) 

STORE  STATI105)  IN  F?(F) 

C 

FILE  E  IN  EOUKISI 
C 

GO  TO  9999 
C 

9  FINO  FIRST,  FOR  EACH  W  IN  HOUEIIS),  WITH  (H3(NI)  EQ  ITRS”), 
X WHERE  IH,  |F  NONF,  GO  TO  9999 
C 

LET  NFAIUISI  •  NFAILI  IS)  ♦  l 
C 

CREATE  EVENT  CAILEO  F 
C 

STORE  ETINE  IN  Fill) 

STORE  KttlN)  IN  E2I FI 
STORE  H?| IH)  IN  E3IEI 
STORE  TRSM  IN  EB(f I 
STORE  MAI IH)  IN  E9| E I 


nooooono 
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STORE  H5( IH)  IN  t 10(E) 
LET  tll(fc)  a  110 
C 

FILE  E  IN  EQUF1 IS) 

C 

REMOVE  (H  FROM  HOUE(IS) 
OESTROV  OH  CALLED  IM 
C 

GO  TO  9999 
C 

9999  RETURN 
ENO 


•I8FTC  R800 

SUBROUTINE  KBOO 


PURPOSE  -  TEAM  LOST  ENROUTE  TO  BASE. 


IOSUB  «  800. 


FIND  FIRST.  FOR  EACH  M  IN  SQUf  .  Hi  TH  (SUXM))  EO  IVA), 

X WHERE  IS.  IF  NONE.  GO  TO  9999 
C 

FINO  FIRST,  FOR  EACH  N  IN  EQUE(IS),  WITH  (E8(N))  EC  ( TRSM)  , 
XANO  (El  l(N) )  EC  1500),  WHERE  IE,  IF  NONE,  GO  TO  9999 
C 

LET  TL AG  ■  F TIME  -  El(IE) 

C 

LET  E81IL)  *  0 
LET  E9I  IE)  •  0 
LET  F  101  IE  I  «  0 
C 

FINO  FIRST,  FOR  EACH  N  IN  EQUEtiSI,  WITH  (E8(N)>  EQ  (TRSM), 
XMHERF  IE,  IF  NONE,  GO  TO  9999 

c 

LET  ESI  IF)  •  ESI  IE)  ♦  HAG 
C 

CREATE  EVEN?  CALLEO  E 
C 

STORE  FTIME  IN  EKE) 

STORE  E  II  IE)  IN  EJIfc  1 
STORF  EAllfc)  IN  EAIE) 

STORE  IOSUB  IN  Etl(E) 

STORE  STATU06!  IN  E2(f) 

C 

FILE  F  IN  FOUL  (IS) 

C 

9999  RETURN 
END 
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*  I BFTC  R900 

SUtJROUTINF  R900 
C 

c 

C . PURPOSE  -  EQUIP.  FAILURE  AT  SITE. 

C 

C 

C . I  OS  UP  c  900. 

C 

C 

FINO  FIRST,  FOR  EACH  M  IN  SQUE,  WITH  ( SI D( Ml  I  EO  CVAI, 
XWHERF  IS,  IF  NONE,  GO  TO  9999 
C 

FINO  FIRST,  FOR  EACH  N  IN  EQUE(IS),  WITH  (EBINH  EQ  I TRSN) , 
XWHERF  IF,  IF  NONE,  GO  TO  9999 
C 

CREATE  EVENT  CALLED  E 
C 

STORE  FT  IHE  IN  E1IF) 

S'.  ORE  Eli  IE  I  IN  EKEI 
STORE  F4IIEI  IN  F4IU 
STORE  IOSUB  IN  E1UEI 
STORE  STATI107)  IN  E2IFI 
C 

FILE  E  IN  FQUE(IS) 

C 

9999  RETURN 
ENO 


♦IRFTC  R9I5 

SUBROUTINE  R9*5 
C 
C 

C . PURPOSE  -  PERS.  FAILURE  AT  SITE. 

C 

C 

C . IOSUB  •  915. 

c 

c 

FIND  FIRST,  FOR  EACH  P  IN  SCU6,  WITH  (StOIRII  EQ  (VA), 
INHERE  IS,  IF  NONE,  GO  TO  9999 
C 

FIND  FIRST,  FOR  EACH  N  IN  EQUCtfS),  WITH  tEBtNM  EQ  (TRSN), 
INHERE  IE,  IF  NONE,  GO  TO  9999 
C 

CREATE  EVENT  CAUFO  E 
C 

STORE  ET1NE  IN  EIIE) 

STORE  Ell  IE)  IN  EKE  I 
STORE  £41  IE  I  IN  E4(E) 

STORE  IOSUB  IN  EilfC) 

STORE  STATE  till  IN  E?(E) 

C 

FILE  f  IN  EOUftlSI 
C 

9999  RETURN 
ENO 


ooonoooo 
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•IflFIC  R960 

SUBROUTINE  R950 


PURPOSE  -  PARTS  FAILURE  AT  SITE. 


IDSUH  =  950. 


FIND  FIRST,  FOR  EACH  H  IN  SOUE,  WITH  ( SI 0 ( Ml »  EQ  IVA», 
XHHERt  IS,  IF  NONE,  GO  TO  9999 
C 

FIND  FIRST,  FOR  EACH  N  IN  EQUE(IS).  WITH  (E8(N))  EQ  ITRSK 
XWHERE  IE,  IF  NONE,  GO  TO  9999 
C 

CREATE  EVENT  CALLED  E 
C 

STORE  FT  IMF  IN  EKE.  I 
STORE  E3(  IE  I  IN  E3(E» 

STORE  EM  IE)  IN  EM  E  T 
STORE  IDSUB  IN  ElllFI 
STORE  STATI 1 12  )  IN  E 21 E  ) 

C 

FILE  fc  IN  FOUFI  IS) 

C 

9999  RETURN 
FNL 


nnnnnnrin 
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♦IRFTC  R1900 


SUHROUIINF  R1900 


■PURPOSE  -  GENFRATF  SITES  AT  MASK 


IDSUE  =  1900. 


IF  ( MUR r )  FO  10),  GO  TO  9099 
CALL  ROIL 

CREATF  SITES  CAt  LED  S 

LET  I  «  I  ♦  1 

STOKE  TKSM  IN  SUMS) 

STORE  VC  IN  SMfJDE  {  S ) 

STORE  DTLVi  IN  SERNO(S) 

STORE  FOAS  IN  f  EASE  1 S ) 

STUKf  I  IN  SINO(S) 

IF  I  VC )  GE  (MSITE),  LET  RSI T  E  *  VC  ♦  1 


FILE  S  IN  S«UE 


9999  RETURN 
END 


*  I BFTC  R20U0 


SUBROUTINE  R200U 


C... ..PURPOSE  -  RFuUEST  FOR  PM. 

C 

c 

C . I  OS  UP  =  2000. 

c 

c 

F  INO  FIRST,  FOR  EACH  M  IN  SOUE,  WITH  ISIDIM))  FG  ITKSM), 
XHHFRF  IS,  IF  NONE,  GO  TO  9999 
C 

CREATF  PM  CALLEO  P 
C 

STORE  r  T IMT  IN  PUPI 
STORE  VO  IN  P?(P) 

STORE  TRSM  IN  PS(P) 

C 

FILf  P  IN  PGUFI  IS) 


9999  RETURN 
ENU 


nnnr onon 


•  IftffC  R2100 


SUBROUTINE  R2100 


PURPOSE  -  BEGIN  PM. 


. tOSUO  >  2100. 


FIND  FIRST.  FOR  EACH  M  IN  SOUE,  Wt  TO  (StD(M))  60  URSM), 
XWMFRl  IS.  IF  NONE.  GO  TtJ  9999 
C 

FIND  FIRST,  FOR  EACH  N  IN  PLUM  IS),  WITH  (P5(N»)  EQ  (TRSH), 
X  AND  IP2IN))  fcO  I VB ) ,  WHERE  IP,  If  NONE,  GO  TO  9999 
C 

LET  NFAILIIS)  «  NFAlLI  IS)  ♦  t 
C 

CREATE  FVFNT  CALLED  E 
C 

STORE  E T INC  IN  [lit) 

STORE  P6(  IP)  IN  F2(E) 

STORE  P2{  IP)  IN  F 3( E  ) 

STOKE  VC  IN  ERIE) 

STORE  P4| IP)  IN  E9IC ) 

STORE  PSf  IP)  IN  ElO(E) 

STORE  (OSUB  IN  FI  HE) 

C 

IF  (PM  IP)  I  LG  (  110),  GO  TO  HO 
GO  TO  999ft 
C 

no  store  pm  ip  I  in  cum 

GO  TO  999ft 
C 

9998  FILE  £  IN  EJUEUSI 
C 

REMOVE  IP  FROM  POOL! IS) 

OESTROV  PM  CALLED  IP 
C 

9999  RETURN 
F  NO 


OOOOOOOO 


* IHFTC  R2150 

SUBROUT  INF  R2150 

.  •  .  .  .  PURPOSE  -  FAILURE  CAUSED  BY  PI*. 
*  •  • • . 10SUB  *  2150. 


DO  TC  l ,  FOR  EACH  Ft  VIS  I 
IF  <VA)  EO  I  Ft VL ( I  I),  GC  TO  2 

1  LOOP 

(iO  Td  9999 
l 

2  FIND  first,  for  each  M  I n  SUUT , 

XWHERf  IS,  IF  NONE,  GO  10  9999 

LET  NFAILUSI  *  NFAILIIS)  ♦  1 

CREATE  EVENT  CALLED  h 

STORE  CT  IMF  IN  M ( E I 
STORE  VB  IN  FT(E) 

store  va  in  r  4( t  j 

STORE  TRSP  IN  E  1 0 « E  ) 

STORF  I DSCo  IN  l  11 ( F  ) 

FILE  £  IN  EUUFIISI 

9999  RETURN 
END 


WITH  (Sin(H)l  t(j  ITRSM), 


rn  p  n  n  p 
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•  imc  R2 300 

subroutine  r?300 

C 

C 

PURPOSE  -  AL H<1  -  CONTINUOUS  MONITOR. 


IUSUH  *  2300. 


00  TO  1,  FOR  FACH  FLVLS  I 
IF  (VA)  tO  ( FLVL  II’I,  GO  T(J  ? 

I  LOOP 

no  in  9999 
c 

?  riNP  FIRST#  FOR  FACH  M  P  S'.'UF  ,  WITH  (SIO(M))  £0  (  TRSM )  , 
KWHERf  IS#  IF  N0NL#  GO  TO  9999 
C 

LET  N  F  A  1 1.  (  ISI  «  NFAIH  IS)  ♦  I 
C 

CREATE  EVENT  CALLED  F 
C 

STURF  ETIME  IN  ril[) 

STORF  VR  IN  E3(F) 

STORE  VA  IN  EUEI 
STORF  TRSM  IN  riOIF) 

STORE  IDSUfl  IN  Fill  FI 
C 

FILE  E  IN  FOUE ( IS) 
t 

9999  RETURN 
END 


o  o  o  r»  o  n  r>  o 
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♦infTC  R2400 

SUttROUTINf  R2400 


PURPOSE  -  RE  SOURCE  REQUEST. 


IOSUR  =  2400. 


C 


C 


C 


C 


C 


C 


C 


C 


C 

C 


IF  (NUKE)  EU  (0),  GO  Tn  9999 
CALL  ROTl 

LET  DTI V2  *  CTLV2  ♦  l 


FIND  FIRST,  FOR  EACH 


WHERE  IS, 

IE  NONE, 

GU 

IF 

(DTLVl 1 

EQ 

(  11, 

GO 

IF 

I0TLV1 ) 

EC 

(2), 

GO 

IF 

(DTLVl  ) 

EO 

(3), 

GO 

IF 

(DTLVl) 

EO 

(4), 

GO 

IF 

(OTLVl ) 

FQ 

(*>), 

G(J 

IF 

(DTLVl) 

to 

(6), 

GO 

GO 

Til  9999 

1  FIND  FIRST,  FUR  EACH 
X AND  (EIOINM  FQ  (TRS* 
XGO  TO  9999 


IN  SCUL ,  WITH  (SID(N) 
TO  9999 

TO  1 
TO  2 
TD  3 
TO  4 
TD  4 
TO  6 


IN  EWU>  (IS),  Wt  TM  (El 
,  AND  (E3IN) )  FU  (Vh) , 


STORE  ST AT  1 101 )  IN  E2( It  I 
STORfc  VC  IN  fc 9(  IF) 

GO  TO  9999 


2  finu  first,  for  each  n  in  rooms),  with  ifi 

XANO  (EIO(N))  CD  (TRSM),  AND  (E3(N))  EQ  IVB), 
XGO  TO  9999 


STORf  STAT (109)  IN  F2(  IFI 
STORE  VC  IN  )  9(  It) 
GO  TO  9999 


3  FIND  FIRST,  FOR  EACH  N  IN  EOUKIS),  WITH  (FI 
XANO  (EtO(N) )  Ft  (TRSH),  ANO  (F3(N|)  FQ  (VBI, 
XGO  IU  9999 


STORf  STAT( 102)  IN  F2( It  I 
STORF  VC  IN  E9l  It  ) 


CREATE  EVFNT  CAtlFO  f 


STORE  HI  HE  IN  CUE) 

STORf  STAT (DTI V? )  IN  F2lk) 

STORE  VB  IN  Flit  I 


J  EC  I TRSH) , 


1  I  N)  )  F.U  (2309), 
WHERE  IE,  IF  NONE, 


1  IN) )  EC  (110)  , 
WHERE  IE,  IE  NONE, 


l(N))  EG  (2900), 
WHERE  IE,  IF  NONE, 
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STOkt  y*  IN  f  4(f  ) 

STORE  IOSUB  IN  p  1 1 1  f- ) 

c* 

FILF  £  IN  EOUEIIS) 

C 


C 

C 


C 


C 


C 

C 


GO  TO  9999 


4  UNO  FIRST,  FOR  EACH 
XANO  IP2IN))  EQ  I  VB  ) , 


N  IN  POUFI1SI,  WITH  IP5IN))  EO  ITRSM), 
WHERE  IP,  IF  NONE ,  GO  TO  9999 


STORE  VC  IN  P4I IP) 

l FT  yn  *  VB  1 
STORF  STATIVB)  IN  P6IIP) 

GO  10  9999 


5  FIND  FIRST,  FOR  EACH  N  IM  EOUEIlS), 
XANO  I  £  101 N  ) )  FO  ITRSM),  ANO  IE3IN)) 
XGO  TO  9999 


WITH  lElliN))  EO  12150), 
ro  (VB),  WHERE  II,  IF  NONE, 


STORE  STAT I OTL  V2  )  IN  E2IJF) 
STORE  VC  IN  F9I It ) 

Gfl  TO  9999 


6  FIND  FIRST,  FUR  EACH  N  IN  HQUFIIS),  WITH  (H5IN))  F  0  ITRSM) 
XANO  I H? IN ) I  FO  I VB ) ,  WHERE  IH,  IF  NONE,  GO  TO  9999 


f 


STORE  VC  IN  H4I IH) 

STORE  STAT(Uu)  IN  H6IIH) 
GU  TO  9^99 
C 

9999  RETURN 
END 


OOOOOVJOo 
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♦IBFTC  R2500 

SUBROUTINE  R2500 


PURPOSE  -  UNDETERMINED  FAILURE. 
I0SU8  *  2500. 


C 


C 


»'«  TO  1,  fOR  EACH  FLVLS  I 

I  LQOP^  ^  E0  <FLVL<I,,»  G0  TO  ? 
GO  rn  9999 


2  FIND  FIRST 
X SHE RE  IS, 


#  FOR  EACH  M  IN  SOUC , 
IF  NONE,  GO  TO  9999 


C 

c 


c 


LET  NFAILI  Is)  *  NFAILI IS)  ♦  1 
CRFATE  EVENT  CALLED  f 


store  etihe 

STORE  VH 
STORE  VA 
STORE  TRSM 
STORE  I0SU6 


in  met 

IN  E3(E) 
IN  FMF) 
IN  EIOIF) 

in  min 


FILE  F  IN  EOUFIISl 

9999  RETURN 
ENO 


WITH  I  Sll)(  M) )  fo  I  TRSM)  , 


nooooooo 
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•  IPMC  REPORT 

SUBROUTINE  REPORT! IS* (LINT  SI 

PURPOSC  -  T(1  RfcPUKI  THE  EVENTS  OF  A  SITE  FOR  OFF-UfcKT  STATUS. 


CALL FU  BY  R200  OK  R3. 


IF  COUF(IS)  IS  EMPTY,  1,0  TO  <)V<)V 
C 

STORE  E  ?( EEOUE 5  1$))  IN  E 1 ?I F EOUfcl I Sll 
LFT  ElUFFOUfcUSl)  «  Eli  LFuuE  I  I  S 1 1  -  F  1  (  FEUUE  (I  S  I  ) 
C 

1  DU  TO  2,  FOR  EACH  IF  IN  EUUtllS) 

LET  ISEO  *  ISEU  ♦  1 

LET  F1AI1E)  *  ISEO 

IF  ( F 12 (  I E  I  I  EO  10),  LET  F12IIF)  *  ST4TI1) 

2  REPEAT  1 

LET  ISEO  «  t ) 

C 

CALL  ALDEG(IS) 

C 

10  IF  FgUFUS)  IS  EMPTY,  GO  TO  V<m 
LEI  IE  «  FEOUE  CIS) 

C 

LEI  CT  IMk  «  riUE  ) 

CALL  CNVKTICTIMk, 10, IN, IP) 

LFT  101  «  ID 
LET  I  Hi  «  IH 
LET  IH 1  -  1M 
C 

LET  CTIME  •  till  IE) 

CALL  CNVRUCTIME.IO.IH.JM) 

LET  102  -  10 
LET  IH2  »  IM 
1ET  IM?  «  IM 
C 

LET  CTIMk  .  ESI  IE  I 

CALL  CNVKTICTIMk, 10, |M,|M) 

LIT  101  •  ID 
l FT  IH)  •  |M 
LFT  |M1  »  |M 
C 

LET  CTIME  »  E6I IF) 

CALL  LNVRTICT IMF, 10, IH, IM) 

LET  It'S  «  10 
LET  I  HA  •  IH 
LFT  IMA  ■  IM 
C 

LFT  CTIME  «  FTIIH 

CALL  CNVKTIf T IMF , 10, IM, IP) 


L ft  ids  =  m 
tEr  i hs  =  ih 
LET  |M5  =  J  M 
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lFT  a  p.es  »  iiiNts  ♦  i 

cJu'hw:1  15  ,,D  r" 

^  t  iihK  s  f 

c  *!US  IHS^IMS)'  ,5>'  ft)1,  ,HI»^'‘^^.lH?,IM?.If)lflHl#lMl,ID«,lH4fIH4. 

REMOVE  It  M(jM  f gut  I  IS) 

UESTRPV  EVENT  CALL  Hi  If 
GO  If)  io 

c 

GALL  RLANK 

Lfr  1LINES  *  ILlMtS  ♦  1 

^999  ..f-rUHN 
EnC 
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•IHFTC  AL  DEG 

subroutine  alofgiis) 

t 

f. 

C . PURPOSt  -  TO  CALCUl  ATE  AltRT  DEGRADATION  TIME  FOR  A  SITE. 

C 

c 

C..o..CAiLfcO  BY  REPORT. 

C 

C 

EFT  LFAIt  «  0 
LET  L F  I X  «  0 
LET  PflHF  *  0.0 
EFT  ITIA  ■  0 
C 

1  DO  TO  2,  FOR  EACH  IE  IN  EQUFIISI,  Ml  TM  (UA(IE))  NE  (0) 

IF  ICUIIEII  FO  12500).  GU  hi  3 

IF  (  C  11  ( IE  I )  EO  (2100).  Gf*  TO  3 

IF  (FllflE)l  Fu  (2300).  GO  TO  3 

IF  (EllllFII  EO  12150),  GO  TO  3 

if  (riiiini  eo  i  no),  go  to  3 

LEI  1 1 A I  I  f  )  *  0 

2  REPEAT  l 
C 

4.0  TO  9V9 
C 

3  LET  (FAIL  «  IF 

FIND  FIRST,  FUR  EACH  M  pi  EOUfMS),  Ml  TH  IE11(M)|  EC  (  200  1,  AND 
X I E  3  IP  I )  EO  (F3IIFAIEI)'  AND  (€A!N>)  FO  (FAtlfAIE)l,  ANO  IF14(P|| 
XGR  (CFIX),  MHFME  1200,  IF  NONE,  GO  TO  AO 
C 

IF  IEFA1EI  EO  (0),  GO  TO  20 
Ell  FTIIFAIL)  *  (1(17001  -  PTINf 
GO  10  30 
C 

20  crv  FTIIFAIL)  •  >  1(  1200)  -  EUIFAll) 

C 

SO  LET  EFIX  •  C 1 A ( 1200) 

EEf  PTIPf  •  E 1 1  1 200 1 
C 

AO  EFT  I  FAIL  •  F1A( (FAIL 
111  f  IAIIF  )  •  0 
GO  TO  2 
C 

009  IU  TO  9999,  FOR  EACH  IF  IN  EOUFUSI 
EFT  I  HA  •  IE  1A  ♦  | 

LIT  (IAIIF)  •  It  IA 
9999  REPEAT  999 
C 

RETURN 

ENO 


00000  000 
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* I8FTC  CNVRT 

SUBROUTINE  CNVRTICTIMT , ID,IH,IM) 


. PURPOSE  -  TO  CONVERT  DECIMAL  DAYS  TO  nAYS(lO),  MnURMlHI,  MI'ISIIM) 


CALLFO  BY  REPORT. 


LEI  10  «  OPART  I C  T  IMF  I 
LET  IH  *  HPARTICTIMF  ) 

LET  IM  «  MPARTCCUMF  I 

IF  IIMI  NE  1 60  It  GU  TU  1 
LEI  IH  *  IH  ♦  l 

l FT  |M  «  0 

l  IF  ( IH)  LS  (24),  GO  TO  0999 
LET  IH  «  IH  -  24 
LET  IC  -  ID  »  1 

C 

9999  RETURN 
TNI) 


•IBFTC  MOING 

REPORT  HU ING 

«  TVCNT  TAIL  SITE  INIT 

•  T I Mfc  NO  I VPE  SUUAO  ST  A  T 

ENO 


TOTAL 
OFT-AI ff  l 


'VM  UN  I  I  f  A  I 
MAT  TAIL  LTV 


L  LAG 

l  T  IMF 

ENG 


OUR  . 

ALF«I  Sft 

T  IMf 

DEG.  TIMT  Nn. 

TIP 

PIG 

Slot  vmt 

•IBFTC  FORM 

RFPCVMT  FORM!  IE,  IS,  ID  I  ,  1*1 1  |M}  ,  1 1)2,  |H2  •  t  M2  ,  IDT  ,  IM)  ,  | M)  ,  ||,4  ,  |H4  ,  |M4 , 

•  •••  •  t  *  »,  »  t  *  *4  • 

•  101*  IH1,  IMUSIRNOI  m.SMUOEl  !  SI  ,T  «  A  St  I  |  S I  1 2  I  I  f  I  ,  1 02  ,  IH?  ,  |  M2,  f  2  II 

•  e«i  it),E<i(  it  i,uoi  if  i.miin 

f  NO 

I  OS, IMS, IMS  I 

•  •  •  •  •  •  •  It*  •  *  i  •  •  • 

l  l,E3(Ifcl,E4l  IE  I , I  03, I  HI, |M  I, |04, I H4* I MA , | OS ( | MS , | MS ,  •1411(1, 

END 
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Program  3 


LOGISTICS  RESOURCE  UTILIZATION 
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III.  LOGISTICS  RESOURCE  UTILIZATION 

The  logistics  information  is  presented  in  three  parts:  Spares, 
Personnel,  and  Equipment.  The  spare  parts  data  presented  by  this  report 
contain  information  regarding  stock  levels,  NORS  (not  operationally 
ready-suoply)  time,  NORS  count,  and  demand  quantities.  The  personnel 
report  contains  the  man-hour  accounting  information.  This  report  dis¬ 
plays  the  utilization  factors  for  each  personnel  type  and  the  man-hours 
consumed  by  various  tasks.  The  equipment  data  presented  contain  infor¬ 
mation  regarding  the  utilization  of  maintenance  equipment  and  facilities. 
NORE  (not  operationally  ready- -equipment)  time,  NORE  count,  and  demand 
quantities  are  included. 

The  Logistics  Resource  Utilization  report  can  be  used  for  either 
aircraft  or  missile  simulations. 

Fig.  11  is  a  display  of  some  example  data  showing  the  spare 
parts  usage  for  the  period*  ending  day  21.00  of  the  simulation.  Col¬ 
umn  1  lists  each  part  type  specified  in  the  input  data  of  the  simulator. 
Column  2  lists  the  authorized  quantity,  also  specified  in  the  inputs 
of  the  simulator.  Column  3  lists,  for  each  spare  type,  the  quantity 
of  serviceable  items  remaining  in  stock  at  report  time.  Column  4  lists 
the  number  of  demands  for  each  spare  part  during  the  reporting  period. 
Column  5  is  the  total  demands  for  each  are  part.  Column  t>  is  the 
NORS  (not  operationally  ready--supply)  time  during  the  reporting  period. 
NORS  time  in  this  report  is  treated  independently  of  the  other  NOR 
conditions,  i.e.,  this  is  the  maximum  amount  of  time  that  could  be 
attributed  to  Supply.  Column  7  is  the  accumulation  of  all  NORS  time 
to  date.  Column  8  lists,  for  each  spare  part,  the  number  of  stockouts 
that  occurred  during  the  period.  Column  9  lists  the  total  number  of 
stockouts  accumulated  to  date. 

Figure  12  is  a  display  of  some  example  data  showing  tha  own-hour 
accounting  information  for  the  period*  ending  day  21.00  of  the  simulation. 
Column  1  lists  each  personnel  type  specified  in  the  Input  data  of  the 
simulator.  Column  2  la  the  man-shifts  (number  of  personnel  x  number  of 


*The  period  is  an  initialized  variable. 
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shifts  that  the  personnel  are  assigned)  available.  Column  3  lists, 
for  each  personnel  type,  the  total  man-hours  (man-shifts  x  shift 
duration)  available.  Column  4  lists  the  accumulation  of  the  total 
man-hours  available  to  date.  Column  5  lists  the  maintenance  man-hours 
(decimal  hours)  for  each  personnel  type.  Column  6  lists,  for  each 
personnel  type,  the  man-hours  spent  in  transit  to  and  from  the  site. 
Column  7  lists  the  overtime  required.  Column  8  displays  the  utiliza¬ 
tion  of  each  personnel  type  (I  Col.  5,6,7  f  Col.  3).  Column  9  is  the 
accumulation  of  th?  utilization  factor  for  the  simulation  t  >  date 
(£  all  Col.  5,6,  and  7's  t  Col.  4). 

Figure  13  is  a  display  of  some  example  data  showing  the  malnte- 
ance  equipment  usage  for  the  period*  ending  day  21.00.  Column  1 
lists  each  equipment  type  specified  in  the  input  data  of  the  simulator. 
Column  2  lists  the  authorized  quantity,  also  specified  in  the  inputs 
of  the  simulator.  Column  3  lists,  for  each  equipment  type,  the  quantity 
available  for  use  at  report  time.  Column  4  lists  the  numbe:  of  de¬ 
mands  for  each  equipment  type  during  the  reporting  period.  Column  5 
is  the  total  demands  for  each  equipment  type.  Column  6  is  the  1E>RE 
(not  operationally  ready- -equipment)  time  during  the  reporting  period. 
NORE  time  is  treated  Independently  of  other  NOR  conditions,  i.e.,  this 
1«  the  maximum  amount  of  time  that  could  be  attributed  to  Equipment 
there  were  no  other  NOR  conditions.  Column  7  is  the  accumulation 
of  all  NORE  time  to  date.  Column  8  lists,  for  each  equipment  type, 
th»  number  of  demand*  that  could  not  be  sat  tafie<1  immediately  because 
of  a  shortage  of  equipment.  Column  9  lists  the  total  number  of  NORE 
condition*  to  date. 


Table  3  lists  the  initialisation  requirements.  Only  six  arrays 
require  input*.  Array  23  is  the  report  Interval  for  the  men-hour 
accounting  report.  This  report  interval  must  be  initialised  either 
daily  or  weekly.  Arrays  24  end  25  ere  the  reporting  Interval  for 
Spare*  tod  Equipment  end  can  be  Initialised  to  any  floating  point  (decimal) 


♦The  period  la  an  initialised  variable. 
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Table  3 

VARIABLE  DESCRIPTION  AND  INITIALIZATION: 
LOGISTICS  RESOURCE  UTILIZATION 
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number.  Array  29  specifies  Che  duration  of  the  work  shift  (floating 
point)  for  use  with  th3  man-hour  accounting  report.  Arrays  33  and  34 
specify  the  number  of  bases  to  be  contained  in  the  report  and  the 
bases(s)  number (s).  The  remaining  arrayr  are  zeroed. 

OUTPUT  PROGRAM 

The  input  to  this  program  is  the  tape  generated  by  the  ABC 
Simulator. 

The  input  tape  consist  of  a  12- variable  label  record  and  Is  some¬ 
times  followed  by  a  10-variable  detail  record.  (See  pages  108  and  109 
of  RM-4659-PR) . 

When  a  label  record  is  read,  the  value  of  EBAS  is  compared  with 
the  table  called  BASES.  If  they  are  equal,  the  record  is  proceaaed. 
Therefore,  any  combination  o*  one  or  more  bases  may  be  run  at  one  time. 

When  a  label  record  is  read,  BTZhE  is  compared  to  RT1C ,  RT20  ,  and 
RT30.  If  ETIME  is  greater  than  or  equal  to  RT10,  RT20,  or  RT30,  then  RPT10, 
RPT20,  and/or  RPT3Q  is  called  and  the  reports  are  displayed. 

PERMANENT  VARIABLES 

This  list  la  complete  except  for  attributes  denoting  flrst-of-set 
and/or  last-of-sat  and  predecessor  and/or  successor  of  sat. 

Label  racords  (sea  page  108  of  RM-4639-PR) . 


IDSOR 

-  Idr 

IDSUB 

-  Idd 

SHPT 

-  Shift 

DAW 

-  Dy/wk 

SXDW 

•  S/wk 

EBAS 

•  lass  no. 

VA 

-  Variable- 1 

VI 

-  Variable-2 

VC 

•  Vartabla-3 

TMM 

-  ID  Addresses 

MDBS 

*■  Dr  1 

ITM 

-  (vaat  tla* 
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Detail  records  (see  page  109  of  RM-4659-PR) . 

DTLV1  »  Integer  variable  1 
DTLV2  »  Integer  variable  2 
DTLV3  -  Integer  variable  3 
DTLV4  *  Integer  variable  4 
DILV3  ■  Integer  variable  5 
DTLV6  -  Integer  variable  6 
DTLV7  *  Integer  variable  7 
DTLV8  «  Integer  variable  8 
DTI.V9  *  Float  variable  1 
DTLVO  =  Float  variable  2 

110  »  RI10  increments  for  Personnel  display. 

Must  be  1.00000  or  7.00000. 

T20  »  RI20  increments  for  equipment  display. 

No  restrictions. 

T30  *  RT30  increments  for  spare  parts  display. 

No  restrictions. 

SHIFT  -  Hours  per  shift. 

BASES  -  Number  o\  base  codes  to  be  processed. 

BASE  -*  Base  codes  to  be  processed. 

BFLAG  *  Controls  flow  of  events  as  a  result  of  EBAS  vs.  BASES. 


SETS 


Name  *  LQ10  used  for  display  of  Personnel.  No  subscripts. 
Ranked  on  Lll. 


Owner 

Member 


SIMSCRIPT  system. 

L10  (Time  is  in  decimal  hours)  . 

Lll  ■  Type. 

L12  -  Man-shift  available. 

L13  «  Total  man-hours  this  period. 

L14  ■  Total  man-hours  to  date. 

L15  ■  Flight-line  maintenance  hours  this  period. 
L15A  -  Flight- line  maintenance  hours  to  date. 

L16  ■  Not  used. 

L17  -  Intransit  hours  for  this  period. 


-93- 


Name 

Owner 

Member 


Name 

Owner 

Member 


Name 


L17A  =  Intransit  hours  to  date. 

Li8  =  Overtime  hours  for  this  period. 

L18A  *  Overtime  hours  to  date. 

L19  =  Utilization  factor  for  this  period. 

L110  =  Utilization  factor  to  date. 

LQ20  used  for  display  of  equipment.  No  subscripts. 
Ranked  on  L21. 

SIMSCRIPT  system. 

L20  (Time  is  in  decimal  days) . 

L21  =  Type. 

L22  =  Authorized  quantity. 

L23  =  Total  quantity  available. 

L24  *  Site  demands  this  period. 

L25  =  Site  demands  to  date. 

L26  =  MORE  time  this  period. 

L27  *  NORE  time  to  date. 

L28  =  Number  of  MORE  this  period. 

L29  =  Number  of  NO RE  to  date. 

LQ30  used  for  display  of  spares.  No  subscripts. 

Ranked  on  L31 . 

SIMSCRIPT  system. 

L30  (Time  is  in  decimal  days). 

L31  «  Type. 

L32  -  Authorized  quantity. 

L33  =  Total  quantity  available. 

L34  =  Site  demands  this  period. 

L35  *  Site  demands  to  date. 

L36  »  NORS  time  this  period. 

L37  =  NORS  time  to  date. 

L38  *  Number  of  NORS  this  period. 

L39  »  Number  of  NORS  to  date. 

PQUE  used  to  queue  personnel.  No  subscripts.  Ranked  on 
TP  10. 


Owner 


SIMSCRIPT  system. 
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Hewber  -  P10. 

TPIO  •  Type. 

SPIO  -  Shift. 

QPIO  ■  Quantity. 

DP 10  -  Day. 

PFLG  -  Control  flag  tc  compute  day. 

Haaw  «  PQ12  uaed  to  queue  exogenous  personnel.  No  subscripts. 
Ranked  on  TP12. 

Owner  >  SIMSCRIPT  ays  tea. 

Member  -  P12. 

TP12  -  Type. 

SP12  -  Shift 

QP12  -  Quantity. 

DP 12  »  Day. 

Name  »  BQUB  uaed  for  team  resources ■  No  subscripts .  Ranked 
on  RTID.  RQUS  uaed  for  team  resources.  One  subscript. 
Ranked  on  TTID. 

Owner  -  BQUE  is  SIMSCRIPT  system. 

RQUE  is  Terns. 

Member  -  RKSRC. 

RTID  -  Team  ID. 

RRID  •  Request  ID. 

RTTP  •  Type. 

RQTY  ■  Quantity. 

RSUB  -  Resource. 

RSFT  -  Shift. 

Kama  •  TQOE  used  to  queue  teams.  No  subscripts.  Ranked  on  T500. 
Owner  -  SIMSCRIPT  system. 

Member  -  TRAM . 

TTID  -  Team  ID. 

TRID  -  Request  ID. 

T500  -  Tima  team  left  baae/sita. 

T504  -  Tima  team  left  alee. 

T600  «  Tima  terns  arrived  at  site. 
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T700  ■  Time  team  arrivec  at  bate. 

T200  •  Time  maintenance  waa  completed. 

T1450  -  Time  team  waa  returned  to  baae  pool. 
T800  -  Time  team  loat  (if  applicable) . 

S/00  »  Time  team  left  Baae. 

Name  «  NQUE  uaed  for  NORS  and  NC'  E.  No  aubacripta. 
on  TNOR . 

Owner  ■  SIMSCRIPT  ayatem. 

Member  ■  NOR. 

NTID  *  Team  ID. 

NRID  -  Requeat  ID. 

NTYP  -  Type. 

NQTY  ■  Quantity. 

NSUB  -  NORS  or  NCRE. 

TNOR  -  Time  of  NORS  or  NORE. 


Ranked 
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T  L 19  JS  I 

T  LIU  36  r 

T  PL  Q  10  3  7  | 

I  SLU03f  f 


T  L21  1  j 

T  L22  2  I 

T  L  2  3  4  j 

M  24  6  j 

T  L25  6  J 

T  l  2fc  7  f 

T  L27  «  f 

T  L  28  3  1  j 

T  L29  32  I 

T  PLU2033  [ 

T  SLlj  20  34  | 


T  L  31  1  j 

T  L  32  2  [ 

T  L  3  3  4  | 

T  L34  •>  i 

T  l  35  6  1 

T  L  36  7  r 

T  t  37  8  f 

T  L  38  31  I 

T  L  39  3?  j 

T  PL03O11  | 

T  SL  0  303*  1 


T  TP  1 0  |  | 

T  SP10  2  I 

T  OP  10  3  | 

T  OP  to  4  | 

T  ppgut  5  | 

T  SPOUE  6  1 

T  PFLG  7  | 


T  I P  1 2  l  1 

T  SP12  2  I 


Lu2()?'  *L2 1  L 


L0100  *  L  3  1  L 


POUfO  ♦IPIO  L 


PQ120  *  1  PI  2  t 
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♦ 

4 

4 

4 

4 

4 

4 f  RfcSKCS  8 

4 

4 

/ 

4 

4 

4 

4 

4 

4 

4 

4 

♦I  TEAM  8  « 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦r  nok  s 

4 

4 

4 

4 

4 

4 

4 

4 


I  OP  12  3  ! 
r  DPI?  4  | 
T  PP012  5  I 
F  SP012  6  I 


T  RFID  l  l 
F  RRIO  2  I 
F  RTYP  4  | 
r  ROFY  5  I 
T  RSU«  6  I 

r  pbcue  7  f 

T  S80UF  8  I 
T  PRQUE31  I 
T  SRQUE32  l 
r  RSFT  33  I 


T  mn  l  F 

T  TRIO  2  I 

T  1500  4  r 

r  t 504  5  r 

T  r  60U  6  f 

T  1 700  7  f 

T  F  200  H  F 

F  F  145031  F 

F  T8C0  32  F 

F  PF0UF33  I 

F  SF0UE34  I 

F  FRO'Jf  35  [ 

F  l ROUE  36  1 

F  S*>00  37  F 


F  MT 1 0  l  I 

F  NR  1 0  2  I 

F  NFYP  3  l 

F  NQTY  4  I 

F  NSU8  5  | 

F  FNOR  6  F 

T  PNUtiE  7  I 

F  SNOUE  8  I 


BOUFO 

roue  i 


foufo 


NOUEO 


•RFin  L 
*  F  F  I  D  L 


*F500  L 


♦FNOR  L 


r'looonoooonoonooo 
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♦IBFTC  MAIN 

MAIN  ROUTINE 


PLANT!  -  inGISIICS  3  E  SO  UPC  t:  UTILIZATION 


PUKPOSF  -  TO  REPORT  (1)  MANHOUR  ACCOUNTING. 

(2)  MAINT.  EQUIPMENT  USAGE. 

(3)  SPARE  PARTS  USAGE. 


INPUT 

TAPI  FROM  ABC  MODEL. 

OUTPUT 

- 

PRINTER  (SIMSCRIPT  RPG). 

REMIND 

9 

ET  KT 

10 

=  T  10 

LET  RT 

20 

=  T  <?0 

LET  KT 

30 

=  T  30 

C 


l  CALL  RLRL 
CALL  SELECT 


IF 

(  IDSUH) 

Eu 

1  3). 

GO 

TO 

3 

IF 

I8FLAG) 

NE 

(  0)* 

GO 

TU 

9999 

IF 

( IDSUB) 

EQ 

(  10), 

GO 

TU 

lu 

IF 

1  IDSUB) 

EU 

I  20), 

GO 

TU 

20 

IF 

( IDSUB) 

to 

(  30), 

GO 

TO 

30 

IF 

1  IOSUB) 

Eg 

(  200), 

GU 

TO 

200 

IF 

1 IDSUB) 

EQ 

I  SOU), 

GO 

TO 

*00 

IF 

( IDSUQ) 

EQ 

(  600), 

GO 

TO 

600 

IF 

I IOSUB) 

EQ 

(  700), 

GO 

TO 

700 

IF 

(  IOSUB) 

Ed 

(  800), 

GO 

TO 

800 

IF 

I IDSUB) 

EQ 

I  1002), 

on 

TU 

1002 

IF 

I IOSUB) 

EQ 

1 1010), 

GO 

TO 

1010 

IF 

I IDSUH) 

EQ 

( 1012), 

GO 

TO 

1012 

IF 

( IOSUB) 

EQ 

( 1020), 

GO 

TO 

1020 

IF 

I IOSUB) 

EQ 

1 1022), 

GO 

TO 

1022 

IF 

I IDSUB) 

EQ 

11100), 

GO 

TO 

1100 

IF 

(  IOSUB) 

CQ 

( 12001, 

GU 

TU 

1200 

IF 

I IOSUB) 

EU 

(1210), 

GO 

TO 

1210 

IF 

< IOSUB) 

EO 

( 1220), 

GD 

TO 

1220 

IF 

( IOSUB) 

EQ 

( 1400), 

GO 

TO 

1400 

IF 

I IOSUB) 

EU 

( 1401), 

GU 

TO 

1401 

IF 

I IOSUB 1 

EQ 

(14*0). 

GO 

TO 

14*0 

IF 

( IOSUB) 

EQ 

( 1470), 

GO 

TO 

1470 

IF 

I  IOSUB) 

EQ 

( 19001, 

GO 

TO 

1900 

GO  TO  9999 
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c 

3  CALL  K3 
CALL  rXIT 

(. 

10  CALL  Win 
00  Tl)  'M4  > 

c 

20  CALL  K20 

•  ;n  to 

c 

3U  CALL  ) 

CO  TtJ  ‘-<#90 
C 

700  CALL  R200 

i,0  LO  9999 

L 

SOO  CALL  RV>0 

(,o  to  9990 

r 

hOO  CALL  KOOO 
r,()  TO  9499 
C 

700  CALL  H 700 

•  ,n  ro  4'im 

(. 

HOO  CALL  ft  HOO 
i,0  I '  >>4  4 

C 

1002  CALL  k loo 2 
.0  T  0  700  9 
C 

inn  CALI  'M'llO 
|*,0  TO  '700  7 
C 

1012  CA1  L  R  1 0  1  2 
r.n  it'  >090 

c 

1070  CALL  R l 020 

f,(J  in  >9)9 

c 

1022  CALL  Ri02T 
0(1  1 1  >99  9 

C 

1100  CALL  W  |  | Cm l 

on  TO  9  >99 

c 

1200  CALL  Kl 200 

«,()  |f’  9  >  >9 

r. 

1210  CALL  R1710 
i.O  !•  9*>  »«i 

C 

1220  CALI  0  172' 
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c 

r.u  n 

000  0 

1400 

CALL 

^  1400 

(. 

L»i)  T  ( 

i 

140  1 

CALL 

!<  1  4  0  1 

C 

00  J| 

i  lift 

CAL  1 

J  14^0 

C 

SO  I" 

0  00  0 

1470 

(  Ul 

•'  1  4  7  ( 

r 

Of)  Ti> 

0'<o  o 

1000 

CALI 

1  IQn 

r 

r.u  to 

0  N-< 

0000 

rr  (  m 

■  »:»  )  f- 

(.  AL  t 

(»IL 

r.(i  In 

00  oo 

f-Nl' 


),  (.0  ll‘  l 


oxo  o  o  r* 


♦IRETC  RUU 


SUBROUT  INF  RIHL 

READS  S-PHASfc  T  APE  I  9  I  <  H  I N  P()I)F  ) . LABEL  RECORDS. 

LEf  BEL  AG  »  0 

READ  (9)  II,  I?,M,  I*.  IS,  16*  I  ? .  I  «t  •  19,110, 111,112 

STURT  !|  IN  10SOR 
STORE  I?  IN  IDSUB 
S7QRI  13  IN  SHM 
STUKfc  H  IN  DAYW 
STURF  IS  IN  SXO* 

STORE  16  IN  ERAS 
STOKE  U  IN  VA 
STCIKt  IH  IN  VR 
STORE  19  IN  VC 
STOKE  IIO  IN  TRSM 
STOAT  ill  IN  KORE 
STORE  I  1?  IN  ET IME 

(. 

1  IE  I ET |KE  I  GE  (R  T 10 1 ,  GO  TO  10 

2  IE  (ETINEI  GE  (RI2CI,  GO  TO  20 

3  IE  1  El  IME  I  Gt  ( K  I  30 1 «  GO  TO  30 

C 

RETURN 

C 

10  CALL  KPT  1 0 
GO  TO  1 
t 

20  CALL  RPT20 
GO  10  2 
C 

30  CALL  APT  30 
GO  TO  3 


o  x  o  o  o  *  o  o  00000 
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•IRFTC  SELECT 

SUBROUTINE  SELECT 


PURPOSE  -  TO  SELECT  FVFNIS  BY  BASF. 


OU  10  l,  FOR  EACH  BA  St-  S  I 
IF  IFHASI  FU  (BASE(l)),  '-0  10  2 

1  LOOP 

L  FI  1FI.AG  1  1 
GO  If)  9999 

2  I  FT  f’Fl  AG  =  0 
GO  1(1  9999 

9999  RE  I  URN 
END 


IBFfC  KOIl 

suHRou r inf  roil 

. . R  F  Al)$  S-PHASF  rAP£(9l  (MIN  V(  OF  I . Of  TAIL  RECORDS. 

RFAU  (91  II,  W,I),U,IS,|A,IT.H»!9,U0 

STORE  II  IN  OIlVl 
STORE  I  ?  IN  UUV? 

STORE  H  IN  OUV 1 
STORE  I*  IN  PHVA 
STORE  IS  IN  OTLVS 
STOKl  I<S  IN  UUV6 
STORE  1/  IN  PTIVT 
STORE  IB  IN  I'HVH 
STURE  ! 9  IN  I  *  T l V  9 
store  no  in  ok vo 
c 

l FT  PORE  *  PORT  -  | 


c 


HKURN 

END 
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♦  innc  rs 

SMbRHUI  1NT  M 
t 
L 

(. . PURPf'SF  -  TO  f.NP  HUN. 

C 

r. 

C.  ....  I PSU*’  =  3. 
t 

(.  At  L  Kfiin 
UAL  L  UP  120 
LALL  KPT30 
C 

CALL  PPIIQ 

C 

)999  return 
CUD 


♦  IbMC  Rio 

SUliRIHlT  IN'  KlO 

l. 

i. 

(......PURPOSE  -  T'l  INIItAlWr  PbKSONMM  UUES. 


{ 


C 

( . lUSUR  =  10. 

f. 

( 

riNi>  riksT,  row  <  ach  *  in  loio,  with  miiHii  to  (vai, 
XWMFRt  IL.  If  NONE,  OP  Til  10 
L 

GO  TO  ?r 

0 

10  CREATE  l  10 

ST  UK  I  VA  IN  L  1  KL  10) 
f  ILL  1.1"  IN  LC  10 

00  Tii  20 
L 

20  UNO  HKST,  FOR  EACH  V  lJ  PUUf  ,  WITH  (TPIO(M))  10  (VA), 
XANI)  ( SP 1 0 ( M  »  )  EO  (VRI.  WHERE  IP,  IF  NONE  ,  00  TO  21 
L 

LET  0P10(  IP  I  =  0P101 IP )  ♦  VC 
00  TO  9999 
C 

?1  CREATE  PtO 

IfcT  TPIO(PIO)  =  VA 
LET  SP 1 01 P 10  »  *  VR 
IET  gPl(HPlO)  *  VC 
t 

IF  (VHi  OP  ( PAX  1 0 1 ,  LET  E'AXIO  =  Vk 
C 

FILE  PlU  IN  PWUE 
GO  TO  9999 
C 

>9*9  RETURN 
ENO 
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♦inrTC  riup 


SUBROUT  IMF  R10P 
C 
f. 

C . PURPOSE  -  TO  CAL  CUL  ATI  M^N  SHE  T  AVAIL, 

t  TOTAL  MANORS  THIS  PfRlUO, 

C  TOTAL  MANHUS  TO  DM  I.. 

C 

c 

C . CALL  to  MY  RPTlO. 

C 

c 

ft  (ITLAG)  NT  (Of,  Go  T.l  30 
C 


10  LPT  ISHPf  =  MAXIM  /  7 
LET  [DAY  =  l 
LET  l  EL  AG  =  l 

C 

20  TO  HI  200,  FUR  EACl‘  M  |0  PO'Jt.  WITH  (PFL'.HO)  T  1  10) 

IF  (SP  10(1*1)  GK  1  I  SHE  i  )  t  Glj  III  200 
LET  0P1O1M)  =  I  DAY 
LET  PELG1M)  =  1 
200  REPEAT  20 
C 

LET  f  SUET  =  ISHTT  ♦  (PAXIO  /  7) 

IF  (TSHET)  «R  (HAXlOl,  G>  TO  TO 
LEY  I  DAY  =  I  [i  AY  ♦  1 
GO  It)  20 
C 

30  IF  (T10J  E(J  (7.M,  GO  TO  37 
IF  (110)  EQ  (1.0),  I.H  TU  31 
GO  TO  9999 

C 

31  1  fcT  LOOP  =  LOOP  ♦  1 

IF  (LOOP)  EO  (8),  GO  TO  31 u 
GO  TO  311 
C 

310  LET  LOOP  =  l 

L  FT  I  LOUP  =  11  OOP  ♦  7 
C 

311  LET  JDAY  =  DPAhT(KTIO)  -  HOOP 
C 

312  00  TO  319,  FOR  TACH  J  IN  PQUE ,  WITH  <  DPI  0  f  J I )  LO  I JUAY ) 

FIND  FIRST,  FOR  EACH  k  IN  LUlJ*  WITH  (Lll(K))  EU  (TPIO(J)), 

X WMt RE  IL,  IE  NONE,  GO  TO  9999 
IET  L  l  2  (  I L  )  =  L  !  ?(  ID  ♦  OPin(J) 

LET  V 3  *  OPIO(J) 

LET  L  1 3  (  I L  )  *  L13IIL)  ♦  V3  *  SHITT 
IET  L141IL)  =  L  1  A(  II  )  ♦  73  *  SHiFT 
319  REPEAT  31? 

GO  T 0  9999 
C 

37  on  To  370,  FOR  EACH  N  IN  P0U1 


o  n  n  n  r  o  n  n 
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f- INI)  FIRST,  FOR  EACH  K  IN  LOlU,  WITH  ILIKKI?  EO  ITP10(M)lt 
XWMCRF  II,  IF  NON'c.  GO  TO  9999 
LET  L12IIU  *  1121  ID  ♦  QP10INJ 
LET  V3  *  OPlOlNI 

LET  L13CIL)  =  L13IIL)  ♦  VI  *  SHIFT 
LET  L14IILI  *  LUIIL)  ♦  V3  *  SHIFT 

370  REPEAT  37 
C 

371  00  TO  376,  FOR  FACH  M  1*1  P012 
C 

372  on  TO  373,  FOR  EACH  I  IN  POOL,  WITH  ?  Tf>10C  1 1 »  EQ  ITP12IHM, 
XANO  (SPlOim  £W  ISPL2IVJI 

C 

LET  UP10I  I)  *  (JPIOIII  ♦  UP1?(M) 

c 

373  REPFAT  372 
C 

RFHOVE  M  FROM  PO 1 2 
LIES  TROY  P 12  CALLED  M 
C 

374  REPEAT  371 
C 

GU  TU  9999 

c 

9999  RETURN 
END 


♦IRFTC  R20 

SUBROUTINE  R 20 


PURPOSE  -  TO  INITIALIZE  EQUIPMENT  QULS. 


IOSUB  =  20. 


FIND  FIRST,  TOR  EACH  M  IN  L020,  WITH  ( L21 ( M) )  EO  IVA), 
XWHERF  IL,  IE  NONF,  GU  TO  10 
C 

GO  TO  ?0 

C 

10  CREATE  L20 

STORE  VA  IN  L21IL20) 

LET  L22IL20I  =  122(120)  ♦  VC 
LET  L23IL20)  *  L23IL20)  ♦  VC 
FILE  L20  IN  LQ20 
GO  TU  9999 
C 

20  LET  L22IIL I  *  L22I  ID  ♦  VC 
LET  L 231  IL  )  *  L23I  ID  ♦  VC 
GO  TP  9  )99 
C 

9999  RETURN 


OUOOOOOO 
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♦IBfTC  «30 

SUBROUTINE  R 30 

»URPnSf  .  TO  INITIAL  Ut  SPARE  paris  oufs 
IDSUB  =  30. 


f. 

C 


find  first, 
xwhere  II,  If- 


FOR  TACH  M  in  LC30. 
NONF,  Gn  rn  10 


on  ru  20 


10  CREATE  L30 

STORE  VA  IN  L31IL30) 

.lfl  .L^(L  301  *  1  32(1  30)  4 

tfTcL33(L  301  *  1  33<L30)  ♦ 
Fis-E  LJO  In  LQ30 

GO  TO  999”? 


20  LET  L 3? C  I L  >  * 
LET  133ULJ  * 
GO  rn  9999 

9999  RETURN 
FNO 


L  321  1L  )  4  VC 
L  331  IL  )  4  VC 


WITH  ({.31(H)! 


eg  (VA), 


n  o  n  n  n  c  n  o 
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*imc  R2o<> 

SUH30UTIM  R  200 

PURPOSF  -  MAINTtNANCr  COUPLE  TFT. 

I  OS OH  =  200. 


if  ( .  i  hu  (o»,  (.0  rn  <*9>n 

CALI  ROIL 
C 

1  00  TO  FUR  t  A(.n  M  I.NJ  Tout,  Wilt  ( T II f  ( M  ))  PQ  I  T  R  > 

C 

LET  T200(«)  =  FT  IMF 
C 

2  00  T P  3,  FOR  EACH  N  IN  ROUE! PI,  01  TH  (RUO(.Nl)  FQ  (TKSP), 
XANO  IRSUMM  I  EC  I  1002) 

C 

FIND  FIRST,  fOR  f ACU  L  IN  UlO,  w! TH  ILll(L))  Fo  (KTYPlN)), 
XWHERF  IF,  IF  NON*-,  On  TO  3 
C 

LEI  rOTY  =  ROTY(N) 

L  FT  LIMIL)  *  ilS(  (I  )  +  (  (  12  00(F)  -  T6001M))  *  FOTY) 

C 

3  REPEAT  ’ 

C 

4  RtPFAT  t 
C 

‘1999  RETURN 
RfU) 


no no  non  onn  n  oooo  ooo 
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♦TBFTC  RSO" 

SUliKUUT  |N>  K  SOU 
f. 
r. 

C . PURPOSE  -  TF  Dl  SPA  TC.Hf  D  bY  HAST  CMNTROI  . 

C 

C 

[DSU?  *  *>00. 


IF  (MuRL  )  Fw  ID,  Gi,  TU  o  -.<  o  , 

CALL  KOI  L 

( f  idtlva)  rj  ( k s I T r » ,  wo  to  tod 

........  .STARCH  FUR  NOR  (  NOk  G /N')kI  )  . 

100  I  in  III  199,  hlH  (Af.H  M  Is.  Jgut  ,  WITH  (  NR  1 1)  (  M  I  )  f.j  (VC) 

IF  (NSIJH(M)  )  FW  (  ICU),  .,U  Tu  Ml 
IF  CJSUR(M)  l  FG  (  10?0),  (.'•  TO  \u? 

GU  It  108 

101  FIND  FIRST.  FI  R  F  A  C  M  L  i.  LJf,  wf  Tu  (DHL))  Fg  (NTYRIMJ), 
X WMF  RE  II. .  IF  him,  t,n  rn  M>| 

LET  I  iMILI  =  L  F  (  II  )  ♦  r  Tl  V  )  -  I  NOR  (  v ) 

<;u  TU  108 

10<!  FIND  FIRST,  FUR  EACH  I.  I  1  L.M,  U  TH  (L?l<LI)  Fg  (  N  l  Y  l>  ( " )  )  , 
XWHEW)  [l  ,  IF  NON f  ,  gt I  TO  l 

l  FT  M'f.lIU  -  L  «M>  (  !  I  5  ♦  ITL/9  -  lt)(IW(M| 

GtJ  TO  l  OH 

108  REMOVE  M  FROM  NT UE 

DESTROY  NOR  CALL  I  I)  M 

199  REPFAT  100 

. CRT  ATE  TEAMS  ALONG  WITH  ITS  RFSt.URCiS. 

FIND  FIRST,  MR  EACH  *  IN  T  .'lb  ,  WITH  (  T  T I D  (  M)  )  F  Q  (JRSM), 
XWHFRF  IT,  IF  NCHf ,  GO  T  I  >()0 
L 

L  FT  TT  Ml  HI  =  T  R  SR 
LET  IKIOI IT)  *  VC 
I  ET  T SOOl  IT)  =  Oil  V‘> 

C 

GO  TO  Ml 


?00  CRE  AH  HAM  CALL  T  D  T 


n  nn 
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L  f  T  TT  JIM  1)  =  TR‘,M 
EfcT  TRIO(T)  =  VC 
LfT  TSOO(T)  =  0FLV9 
LET  SSOO(T)  =  0TLV9 
f 

FILF  r  IN  !  OUE 
C 

on  10  201 

c 

?0l  no  TO  202,  FOM  EACH  M  IN  I'UUb,  *  l  1 H  (RTI01M1I  EO  (  TKSM) 
C 

FILE  M  IN  RUUF1T) 

REMOVE  M  FROM  OCUF 
C 

202  REPEAT  201 
(,U  in  9999 

. STOKE  DEPARTURE  TIKE  PROP  SITF1TS0A1. 

300  10  in  301,  FUR  EACH  M  IN  T OUE ,  WITH  (TTIO(M)I  EQ  1 TKSH 1 

LET  TS091M)  =  ETIME 
C 

301  REPEAT  300 
C 

GO  TO  9999 

C 

9999  RETURN 
L'NO 


rr.  nmnno 


*  I  Of  T  C  R60U 

SlJHKnuriNf  R  600 

PURPOSE  -  If  AM  ARRIVAL  AT  SITE. 
I0SU0  =  600. 


c 

c 

c 

c 


l  on  In  4,  F  OR  EACH  M  IN  TC'Uf  ,  W|  fh  I  I II  PI  I*))  fQ  (  T  R  SV I 
Ltl  1600(H)  =  fUMf 


l  00  TO  1,  FOR  EACH  N  IN  MuUF(M),  WITH  (FtTIO(N))  tO  (TRSM). 
XAND  ( RSUH (N  )  )  FQ  (100?) 


FIND  FIRST,  FOR  : ACH  l  IN  LQ10, 
XWHL  Rf  IL,  IF  NON f «  &()  T[)  J 


vji th  ilium 


F  •)  f  R  )  y  P  (  N )  )  , 


LFI  FWIY  =  K(J  T  Y  1  N  ) 

LtI  L,7,,L>  =  117(11)  ♦  (  (  Tt>0(<(  M )  -  TSOOIM))  *  Kj]Y) 

3  RFPfAI  ? 

C 

4  REPFAf  l 

C 

9N9N  RETURN 
END 
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•  ipfic.  K7or 

SUBROUTINE  R  700 

t. 

L 

C . PURPOSE  -  TtAK  ARRIVAL  A  I  BASE  . 

t 

C 

«; . i  os  u  i'  =  7oo. 

c 

L 

1  on  in  4,  ruR  i.alh  h  in  Twin ,  with  (tmdimj)  fq  itrsr) 

c 

LH  I  7001 M  J  -  f  T  IMF 
C 

2  DU  IU  3,  FOR  r  At.  U  N  IN  KOUI  INI,  «. I  TH  (RllDlNII  tO  URSM), 
XANO  IRSUUINI )  tC  I  100? 1 

C 

PHD  FIRST,  FOR  FACH  L  \\  LQ  10,  WITH  (LllIL))  tO  I  R  T  Y  P  ( M  >  , 
XWHCR!  ||.  t  If  NlJNf ,  (.1)  1(1  3 
C 

LET  f"  UT  Y  =  RuTYIN) 

LfcT  I  171  11  I  -  L  I  7(  IL  »  ♦  (  <  T70JCH  )  -  f>04l  M)  I  *  FQTYI 

«. 

*  KtPCAT  ? 

(. 

4  UFPI A1  l 
C 

*999  KfcTURN 
f  NL) 


nnnnnnno 
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♦IflFTC  RrtOO 

SUMROUTINF  RflOu 


. fHJKPiJSh  -  TEAM  LOST  i  MR ( H/ 1 1  m  SITF/CASE. 


lUSUf'  *  bOO 


1  fO  T(j  9,  FUR  FACH  IT  IN  TQUE  ,  WITH  (ITiriini  r  Q  (IkSM) 

LtT  T nOOJ  1  ,  i  =  (  l  IMt 

c 

2  un  If)  a,  FOR  FACH  IR  I f j  I'UUMIT),  WITH  (PUDUR))  FO  (Tk^V). 

XANO  (RSUttU-OI  FO  (100?)  ' 

c. 

FINC  FIRST,  FOR  FACH  ML  IN  It  10,  WITH  (Llld-U)  Fc  IkTVPIIRII, 

xwhfrf  il,  it  nunt,  r,j  rr  7 

c 

IT  (15001  IT))  to  (0.0),  (,()  Til  5 
IF  (  I  SOM  IT))  FO  (O.U),  GO  TO  3 
l.U  TO  A 

c 

3  LFT  FOTV  r  RgTYI IR ) 

JHtmU.  =  LI?(IU  ♦  ((IBOO(IT)  -  FSOOf  I T )  I  •  Fury) 

c 

A  ! FT  FOTV  -  HOT Y( IR ) 

lrT  117(11)  *  L 1 7 (  1 1  I  ♦  ((iHOOtm  -  TSOAIITd  *  FgTY) 

GU  T  0  b 
C 

5  00  TO  6,  FOR  FACH  IP  IN  POUF,  WITH  (TPIO(IP))  fO  UTVPfJKI). 
XANO  I  SP  10  (  IP  I  )  FO  (RSFT(IR)) 

r. 

LFT  UPlOIIP)  «  UPlClIPl  -  ROTYIIR) 

6  RFPIAI  5 

C 

CALL  OVT IMtl  IT ,  !P,  IL  ) 

C 

<  RFMOvr  IR  FRUH  KiJUi  (IT) 

DESTROY  RFSRC  CAlltO  |R 
C 

8  REPrAT  2 
C 

1  WUUt  €  I T  >  IS  NUT  EMPTY,  GU  TO  9 

RFMOVf  IT  FROM  TOUc 
DESTROY  TEAM  CALLED  IT 
C 

9  REPtAT  1 

c 

999V  RFIORN 
(  NO 


n  o  o  o  r' 
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•IRFTC  R1U0? 

SUBROUTINE  K 1 00/ 


C 

c 

c . PURP'ISC  -  PERSONNEL  RtSOuRC' 

C 

c 

t . msuo  =  ioo?. 

c 

f. 


S  ASSIGN!  0  Tit  TEAM. 


C 


c 


f. 


CREATE  RE  SRC  CAlltD  R 

Lcl  Rf IO(R)  *  VA 
LET  IRIDIR)  =  TRSM 
LET  R I YP I K  )  =  VH 

ter  rutyiri  »  vc 

LET  RSFflRJ  -  SX(iW 
LH  “SUIURI  -  1DSIK» 

F I L  t  R  IN  BOUfc 

RETURN 
*  NO 


• IBETL  K1010 


(. 


S.'^ROU T  INE 


R  1010 


PURPOSE  -  PARTS  STf.~KOUT  I  NOR  s  )  . 
1DSUB  *  1010. 


I  00  JO  ?.  EUR  EACH  *  IN  LuJO,  WITH  (L3l(*>>  FQ  <VH| 
LET  L1HIPI  «  L38IHJ  ♦  l 
LET  LVMHI  .  L  391 H  I  *  1 
l  EPLAT  l 
C. 

CRIATF  NOR  CALU  f)  S 
C 

U  »  NT  mi  s  I  »  VA 
LET  NR  1 01  SI  •  TRSN 
ItT  NTYP1S)  *  VH 
LET  NUT 1 1  S'  «  VC 
LET  NSURISI  *  (OSUH 
LIT  TNORISI  *  Efim 
C 

FILE  S  IN  NQUf 
L 

t 999  HtTURN 
»  NO 
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•  ire  re  h  i  o  1 2 


c 

c 

c 

c 

(. 

c 

c 

C 


C 


SUBROUTINE  «1()|2 


....PURPOSE  -  PARTS  ASS! GNt  D  TO  TE  AH. 
• . «. IDSU6  =  1012, 


1  DU  TO  2»  FOR  fACH  H  fN  LC30. 
LET  miM)  -  l33(M)  -  VC 

LET  LH(M)  s  L3AIH)  ♦  | 

LET  L  3  *>  4  M  >  *  L  3*>  f  H  )  ♦  I 

2  RrPTAT  1 


WITH  (131(H))  £g  (VK) 


9999  RETURN 
END 


•  I  HE  I C  R 1 020 

SUBROUTINE  M10?0 


PURPOSE  -  tgulPHENI  STOCKOUT  I NOKf ) . 
IDSUR  *  1020. 


C 

c 


c 


1  DO  Ty  2*  FU  '  FACE)  M 
LET  L2R(H»  l  2S ( H  I 
LET  129(H)  .  129(H) 

2  REPEAT  I 


IN  IU?U,  MfTH  (121(H) |  fcg  (VP) 
♦  1 


CREATE  NOR  CALLED  f 

LET  KTlfi(E)  «  VA 
LET  NRIO(E)  •  TRSH 
LET  NT  VP( f )  .  VB 
LET  NOW!  E )  «  VC 
LET  NSUBIE)  *  i0Sub 
LET  TNOAm  •  ETIHE 


HIE  t  IN  NODI 

9999  RETURN 
f  HO 


oonnnr'oo 


-life 


•ihftc  rio?? 

SUHROU  T  I N F:  R  1022 
L 

r 

C . PURPOSE  -  LOUlPPfNT  ASSIGNED  TO  ThAP. 

c 

c 

IDSUP  =  1022. 

c 

c 

1  DO  Tj  2,  FOR  EACH  M  IN  1020,  WITH  (L?l(P)|  EO  ( VB » 

LET  r  L  2  3 1 M  I  -  VC 

LET  l  2  A I M  )  =  L24IM)  ♦  1 
LET  L2'j(P)  =  L2b(P>  ♦  i 

2  REPEAT  I 
C 

9999  RETURN 
l  NO 


♦IPFTC  RllOO 

SUDKOU I  INC  RllOO 


PURPOSE  -  EXTRA  PARTS  ASSIGNED  TO  TEAM. 


IDSUR  =  1100. 


1  UO  10  2,  FOR  EACH  f*  IN  l(  3U»  WITH  IL31IMJ)  E<j  (VP) 
LET  L  3  3 1 M  »  *  L33(M)  -  VC 

2  REPEAT  l 

C 

9999  RETURN 
END 
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♦  inru:  ru’oo 


c 

c 

c 

c 

c 

c 

c 

c 


simnnuUNf-  (i;ou 
PURPOSE  -  rxno.  PTRSONMI 

iosui;  =  i?uo. 


arkivai  to  puiil. 


IF  ( T  lu )  Hu  (l.o)f  on  K  i 

IF  ( T  10 )  Fw  (  7.0),  (,  )  To  7 

GO  TO  9999 
C 

I  FIND  FIRST,  F  nx  fACH  I  |\  P(,Uf, 

X  ANO  (  $P  l(}(  (  |  |  Ft.  (  VA  J  ,  WHf 9 t  lf> 

LFT  <.P10(  IP)  s  tP10(  IP)  ♦  Vf 

no  r  f  >  9999 

c 

7  Lfcl  I  SHF  1  =  MAX  10  /  7 
UT  10\Y  =  1 

71  IF  (VA)  GH  (  l SHF  T ) ,  r, i)  f)  7? 

Itr  J  HAY  =  I  HAY 

no  in  71 

c 

72  l FT  ISHFI  =  I  SHF  T  ♦  (MAX10  /  7) 
IF  (1SHFT)  UR  (PAX  10),  00  I.)  7) 
LEI  JOAY  =  I()AY  ♦  1 

no  rn  71 

t 

73  l ET  I  HAY  =  OP AR  T ( FT IMt J 

IF  UDAY)  IF  (JOAY),  GO  TO  t 
C 

CKFATF  P  l  2  CAlLfcl)  P 
C 

STORE  VP  IN  TP  12( p  ) 

sropr  va  in  sp 1 2 c p i 

ST0RF  VC  IN  (JP  12(P  I 
STORf  JOAY  IN  OP  1 2 ( P  I 
C 

FILE  P  IN  PO  12 
C 

GO  TO  999  9 

c 

'I'm  RETURN 
END 


WITH  (TPlOin)  FC  (VHI, 
IF  NONE ,  GO  TO  9099 
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• IBFTC  R1210 

SURKOUT INfc  R1210 
C 
C 

c . purpose  -  exuu.  parts  arrival  tu  pool. 

c 

c 

C . IDSUR  *  1210. 

C 

C 

1  »)IJ  TCJ  ?♦  FOR  EACH  H  IN  LU30,  WITH  IL31IM))  PC  IVBI 
LPT  L32IMI  »  L32IH1  ♦  VC 

I  ET  L33IMI  *  L  33 ( P )  ♦  VC 

2  REPP  AT  l 
C 

'1999  KFTURN 
I  NO 


♦IBFTC  R1220 

SUBROUT  INF  R1220 
C 
C 

C . PURPOSF  -  iXOG.  PQUIPMENT  ARRIVAl  AT  POOL. 

C 

C 

C . IOSUB  «  1220. 

C 

C 

1  00  TO  2.  FOR  EACH  P  IN  LQ20,  WITH  ( L2I <  Ml  I  EO  IVBI 
LET  L22IHI  «  L22IHI  ♦  VC 

LET  1231 H I  «  L23IH)  ♦  VC 

2  REPEAT  1 
C 

9999  RETURN 
I  NO 


•IBFTC  K1400 

SUBROUTINE  R1400 

c 

c 

C . PURPOSE  -  PARTS  RETURNED  TO  POOL. 

C 

c 

C . IOSUB  •  1 AOO. 

C 

C 

1  00  10  2»  FOR  EACH  N  IN  lW30*  WITH  (L3l(N|>  EQ  IVBI 
LET  L 3 3 ( M  I  «  L  33(B)  ♦  VC 

2  REPEAT  l 
C 

9999  RETURN 
ENO 


n->ooonr'o  *  <">  noonopori 
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♦IRFTC  K1401 

SUUKOUI INE  R1401 


PURPOSE  -  PARTS  RETURNED  TO  POOL  IKFPAIRFOI. 


I  OS UR  *  1401. 


1  00  TO  2,  FOR  EACH  M  IN  L030,  WITH  I  L3H  M)|  FO  IVR) 
LET  L33IM)  *  L33IM)  VC 

2  REPFAT  l 

9  RETURN 
END 


IOFTC  R1450 

SUBROUTINE  R  14-jO 


PURPOSE  -  PERSONNEL  RfclURNfO  TO  LsA  SE  POOL. 


IOSUR  *  14S0. 


1  00  TO  %  FOR  EACH  IT  IN  TOUT,  WITH  ITTIOim)  EO  ITKSM) 

C 

LET  T 1450 1  IT  )  »  FT  IMF 
C 

2  DO  TO  4,  FOR  EACH  IR  IN  ROUE (IT)?  WITH  IRTIUIIR))  EC  ITRSM), 
XAND  IRSURI  IR  H  Eu  I  10021 

C 

FIND  FIRST,  FOR  FACH  ML  IN  L010,  WITH  ILUIMUI  EU  UTYPIIRII, 
XWHERE  IL,  IF  NONE,  GO  TO  3 
C 

CALL  OVTIMEI  IT,!R,ll  ) 

C 

3  REMOVE  IK  FROM  ROUE  I  I T  I 
DESTROY  RFSRC  CALLED  IR 

C 

4  REPEAT  2 
C 

IF  ROUE  I  I T I  IS  NOT  EMPTY,  Of:  TO  i 
C 

REMOVE  IT  FROM  TOUT 
DESTROY  TEAM  CALLED  IT 
C 

5  REPEAT  1 
C 

9999  RETURN 
END 


r>r>r,oonf'o 
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♦IHFTC  R1970 

SUBROUTINE  R14  7J 


PURPnsr  -  equipment  returned  to  pool. 


IUSUH  =  14  70. 


1  1)0  TO  2*  FUR  EACH  M  IN  L.20,  HIM  (L21lMn  EO  (VB) 
IfcT  I  2  3  ( M  I  =  L  23(M  I  ♦  VC 

2  REPFAT  l 

9999  RETURN 
END 


* IHFTC  R190G 

SlmROuT  INF  R  1900 

c 

C 

C . PURPOSE  -  Tn  SFT-UP  MSITI  VAR  I  AbLt  TO  DETERMINE  WHICH 

C  DIRECTION  TEA*  |i  TRAVELING  ClDSUB-500). 

C 

c 

C . IDSUB  =  1900. 

c 

c 

IF  1VCI  GE  IMSITri,  LET  MSITF  *  VC  ♦  1 

c 

RETURN 

IND 


ooononor- 
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♦  IHFTC.  (JVTIMf 

SUfAROUl  INf  OVT  IME(I  T  ,  !«,  Ill 


PURPOSf  -  TO  COMPUTE  OVERTIME  HOURS. 


IOSUH  =  1450/801'. 


IF  (T 1450  (IT))  Nt  (0.0  It  GO  Hi  1 
IF  ( T  BOO  (  IT  II  NF  (0.0),  (.0  TO  ? 

C 

GO  TO  9999 

c 

1  LET  OVHRS  *  1 1450( I T  ) 

GO  in  3 

C 

2  LET  (IVORS  *  !ROO(  IT ) 

GO  TO  3 

C 

3  LET  ICAY  *  OPART (S500(  IT)  ) 

LET  FOAY  =  I  DAY 

LtT  HSET  *  S500IIT)  -  FOAY 
C 

IF  (HSFTI  LS  (0.33333),  GO  TU  1C 

IF  (HSFT)  LS  (0.666661,  Gfl  TU  20 

IF  (HSFTI  LE  (1.00000),  GO  TO  30 

C 

GO  TO  9999 
C 

10  LET  HSFT  «  0.33333  ♦  FOAY 
GO  TO  100 
C 

20  LET  HSFT  *  0.66666  ♦  FOAY 
GO  TO  100 
C 

JO  LET  HSFT  «  l. 00000  ♦  FOAY 
GO  TO  100 
C 

100  IF  (HSFT)  GE  (OVHRS),  GO  10  9999 
C 

LET  FOTY  -  RQTYI IRI 

LET  l  18  ( IL  )  «  L18IILI  ♦  ((OVHRS  -  HSFTI  ♦  FOTY  I 
C 

9999  RETURN 
END 


ooonor-.no 
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♦  IBFIO  HPT  10 

SUbROUTlNF  RPTIO 


PURPHSC  -  TO  REPORT  MANHOUR  ACCOUNT!  G. 


CALLED  BY  RLBL/R3. 


CALL  RTOVT 
CALL  RTFLM 
CALL  RUNT 
C 

CALL  HOG  10 
C 

CALL  KIUP 
C 

1  DO  TO  2,  TOR  EACH  L  IN  LQIO 
LET  HMD  «  HMD  ♦  24.0 
LET  L  17 CL  )  «  L17IL1  ♦  24.0 
LET  llfl(L)  *  L1BIL)  *  24.0 
LET  L15AU)  «  L15AID  ♦  LIMH 
LET  L17AIL1  *  L17AIL1  ♦  L17IU 
LET  L1RAIU  *  L  18A  ( L  )  ♦  L18IL1 

LET  L  19(L )  «  !L1MLI  ♦  L17IL)  ♦  L18IU)  /  L13(L) 

LET  L  LlOt  L I  «  (L15A(U  ♦  L17AIL)  ♦  LlBAILI)  /  L14CL) 
C 

CALL  RPGIO(L) 

C 

LET  L 12(L  )  *  0 
LET  LI3IL)  «  0.0 
LET  HMLI  *  0.0 
LFT  L 1 7(L  )  *  0.0 
LET  LIRID  *  0.0 
C 

2  REPEAT  1 
C 

LET  RT 10  •  R T 10  ♦  TIO 
C 

9999  RETURN 
ENO 


nnoooono 
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*  I RFTC  RT  FLU 

SUBROUT  INI-  RTFLM 


PURPOSE  -  TO  COMPUTE  FLT  LIKE  NAINT  HRS  AS  OF  RE  PORTING  TIME. 


CALLED  (IV  RPTIO. 


1  DU  TO  •>,  FOR  EACH  IT  IN  TOUE#  WITH  (T600(IT)>  Nt  (O.O). 

X  AND  (T2n0(mt  FO  (O.OI 

C 

2  00  TU  3»  FUR  EACH  IK  IN  ROUL(IT),  WITH  (RSUB(IRI)  EO  I  1002 1 
C 

riNU  FIRST#  FOR  EACH  L  IN  L010#  WITH  I L 1 1 ( L ) I  EO  (RTYP(IR)I. 
X WHERE  IL#  IF  NONE*  00  TO  A 
C 

LET  FUTY  «  ROTY< (R I 

LET  HAUL)  «  LIST  II  )  ♦  (  ( R  T 10  -  T600IITM  *  FOTYI 
C 

3  REPEAT  2 
C 

A  LET  T600(IT»  -  RTIO 
C 

5  REPEAT  1 
C 

9999  RETURN 
END 


oooonnnr 
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♦ IHFTC  RUNT 

SUHROUTINC  R  T  I  N I 


PURPOSE  -  Ffl  COMPUTE  1 N T P A M  HOURS  AS  OF  RFPf)PT|NG  TIME, 


CALL  ED  f» Y  RPTIO. 


1  00  10  S»  FOR  EACH  IT  IN  TOUE  ,  WITH  ITSOOIITII  Nl  (0.0), 

X  ANO  (  T600(  IT))  F.O  (0.0) 

C 

2  UO  TU  i,  FOR  EACH  IK  IN  KUUFUT),  WITH  (RSURIIR))  FU  (1002) 

C 

F  INI)  FIRST,  FOR  EACH  L  H  LUlO,  si  TM  (Lll(O)  FO  (RIYP(IR)), 
XWHERF  (I,  IF  NONE,  GO  in  4 
C 

LEI  FOTY  *  ROIYI IR I 

LET  L  1  M  I L  )  «  L17CIL)  ♦  ((RIIO  -  TSOO(IT))  *  FOTY) 

C 

1  REPLAT  ? 

C 

4  LET  TNOot IT)  •  R T 10 
C 

5  REPEAT  1 
C 

it  uo  to  is,  for  each  it  in  toui  ,  with  mostim  ne  n.o». 
x  AND  (Tinnimi  ru  to.')* 

c 

12  CO  in  n,  FOR  EACH  I R  |\  RQUFtIT),  WITH  ( W  SUF  (  1 H  >  )  tu  1 1002  ) 
C 

FIND  FIRST,  FOR  EACH  L  IN  LCIO,  WITH  (111(111  CO  (RTYP(IRI), 
XWHf Rf  IL,  IF  NONE,  GO  T)  14 
C 

LET  FOTY  »  40TVI IK) 

LET  L1TIIU  •  LIFT  IL  I  ♦  I !  A 1 1 0  -  1404(1111  •  FQTYI 
C 

11  REPEAT  1? 

C 

14  LET  TV04IIT)  •  RT10 
LET  TNOOI  IT t  •  RIIO 

C 

15  REPEAT  II 

C 

9999  RETURN 
END 
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♦fP.f-fC  KfflvT 


suKRfuj  r  i nt  r  ruv  i 


C . ,’UH,’"S,■  '  ,U  aWPUn  ••VFKflMt  H„„„s  AS  .» 

L 

C . CALLFD  V  RPUO. 

0 

t 

I Er  ovhrs  *  *tio 

0 

1.  1  10  2000'  fnK  fAtH  "  '«•<*.  -tIM  ISSoollm  lf  ,0.0, 

ini; :  ,1T)r/,sw,,,,Mi 

£  "SFT  =  SS0U{  IF)  -  HMy 

[E  <H SEN  IS  (0.31331),  |  jt, 

JE  (HSFI)  LS  (0.6660b),  f,f» 

L  f F  ( HSF  r )  I  t  (l.ooooo),  ,,p  fn 

I  f)  TO  ?000 
C 

10  l.ir  HSM  *  .  333  )3  ♦  NMr 

f»0  TO  loo 
c 

?0  LET  MS TT  *  0.66666  ♦  f|)AY 

on  ft?  ion 

c 

Jo  Ifr  H$ff  ;  1.00000  ♦  6pAy 

of'  r fi  i.k) 
c 

c  100  (MSfn  or  (OVMHS),  Cf)  n  «><<«„ 

c  ?0°  00  Tl>  10(,°'  n‘*  fACH  ,ft  ,K  til),  *i(„  (MSUIMIKII  i  g  |,yw, 

c  (I  •  rfFr2oNC?Cuf|4  T/|N>O0fV*#  W,r"  fg  ‘^^'Nl), 

J.6T  Fgry  *  r  j? y(  m  i 

t  ltT  L,t^u,  *  ♦  (  (OVHRS  -  MSM)  •  H,JY| 

1000  RERtAI  <*00 

c 

JOOO  Rtprtt  1 

r 

* 

9999  Rf T URN 
END 


nrsoooono 
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•IBFTC  RPT20 

SUBROUTINE  RPT20 


. PURPOSE  -  TO  REPORT  MAINT.  EQUIPMENT  USAGE • 


CALLED  BY  RLBL/R3. 


CALL  RTNORE 
C 

CALL  HOG20 
C 

1  RO  TO  2«  FOR  EACH  L  IN  LQ20 
IET  L  27(1.  1  «  L27( L  I  ♦  1.26(0 

C 

CALL  RPG20ILI 
C 

LET  L2AILI  «  0 
LET  L261L )  *  0.0 
LET  L28IL  I  *  0 
C 

2  REPEAT  I 
C 

LET  RT 2(J  •  RT20  ♦  T20 
C 

9999  RETURN 
END 


•IBFTC  RTNORE 

SUBROUTINE  RTNORE 
C 
C 

C . PURPOSE  -  TO  CQNPUTF  NORE  TIME  AS  OF  REPORTING  TIME. 

C 

C 

C . CALLEO  BY  RPT20. 

C 

C 

1  DO  TO  2,  FOR  EACH  N  IN  NQUE*  WITH  (NSUB(NI)  EQ  (1020) 

C 

FIND  FIRST*  FOR  EACH  l  IN  LQ20*  WITH  (L2l(l) I  EQ  (NTVP(N)I* 
XWHERt  IL*  IF  NONE*  GO  TO  2 
C 

LET  L2*(il)  >  3.26(11)  ♦  RT  )  -  TNOR(N) 

LET  TNOR(N)  •  RT20 
C 

2  REPEAT  1 
C 

9999  RETURN 
ENO 


onoonooo  •  o  o  o  o  n  r>  n  nooooooo 
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•  IBFTC  ftp T 30 

SUBROUTINE  RP  T  30 


PURPOSE  -  TO  REPORT  SPARE  PARTS  USAGE. 


CALLED  BY  RLBL/R  3. 


CALL  RTNORS 
CALL  HDG30 

1  DO  TO  ?f  FOR  EACH  L  IN  L030 
LET  L37IL  )  *  L37IL  »  ♦  L36ILI 

CALL  RPG30CL  ) 

LET  L34IL)  *  0 
LET  L36IL)  *  0.0 
LET  l  38  { L  )  *  0 

2  REPEAT  l 

LET  RT  30  =  RT30  ♦  T30 

9  RETURN 
tNO 


IBFTC  RTNORS 

SUBROUTINE  RTNORS 


PURPOSE  -  TO  COMPUTE  NORS  TIME  AS  OF  REPORTING  TIME. 


CALLED  BY  RPT30. 


1  DO  TO  ?,  FOR  EACH  N  IN  NOUE*  WITH  'NSUBINI*  FO  UOIO) 

FINO  FIRST*  FOR  EACH  l  IN  LQ30,  WITH  fl'UUI  FQ  ( NTYPI Nil* 
XWHERE  IL»  IF  NONE*  GO  Ttl  2 

LET  L36UL)  »  L36III)  ♦  RT30  -  TNOR(N) 

LET  TNORIN)  «  RT30 
C 

2  REPEAT  t 
C 

9999  RETURN 
END 


nrnrnnro 
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•I8FTC  RPTTQ 

SUBROUTINF  RPTTO 


.....PURPOSE  -  Til  PRINT  ALL  MEMhtttS  )T  TOUTS  LEFT  AT  fND-SlM 


CALI  ED  HV  R3  . 


CALL  HOGTQ 
C 

1  i’U  Tfl  ?,  FOR  FACH  I  la  TSUI 

CALL  RPGTQII) 

2  KfPFAT  1 
C 

RETURN 
!  MU 


♦IHFTC  MHO  til 

REPORT  HUG  10 

• 

♦ 

*  man  shet 

TOTAL 

MANHRS 

♦  TYPC  AVAIL 

EMU 

THIS 

PER  100 

MANHOUR  ACCOUNT  INC,  FOR 

TOTAL  MANHRS  FLT  LINE 

TU  DATE  MAINT  HRS 


PI  KlUlJ  LNPING  ♦**♦.** 

R  T  10 

INTRAN  OVERTIME 

UTIL  FACTOR 

UTIL 

FACTOR 

HOURS  HOURS 

END 

THIS  PI  R I  00 

TO 

DAT  I 

* 

? 

1 


*  I HFTC  RPGIO 

Rf PORI  RPG10IL) 

*  *  *  •.**  *.♦*  *.*♦ 

*  Lll(L),Ll?(L)*LlJ(Ll,L14!L)*LlS((),L17(L)»LIR(L),LL‘ML)*L110f.  L) 

FNU 

* 

♦.**  ♦.**  *,»»  *.**  * 

* 

FNU 
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* IBFTC  HDG20 

REPORT 

* 

* 

HDG20 

* 

AUTH. 

TOTAL  GTY 

*  TYPE 

END 

yT  Y 

AVAILABLE 

MAINT.  fOU»PM!>;T  USAGE  FL'R 


SI  IF  DEMANDS 
THIS  PERIOD 


SITE  DEMANDS 
TO  DATE 


* 


PERIOD  END ING  *♦♦*.** 

RT  20 

NORE  TIME  NORE  TIME 

NO.  NORE 

NO. 

NORE 

THIS  PERIOD  TO  DATE 

END 

THIS  PER 

TO 

DAT! 

? 

I 


*  I  BET 

* 

* 

* 

*.**  *.**  *  *  * 

* 

END 


C  RPG20 

REPORT  RPG2U  ( L  I 

*  *  *  *  * 

L  2 1 1 L ) * L22 ( L  i»L23(L)»L?S(L ; ,L?SI l I »L26( L I VL27 ( L) ,L23 IL) ,L2N (I  I 
FNl) 


MHFTC  HUG 30 

REPORT  HUG3U 

* 

* 

*  AUTM.  TOTAL  QTY 

♦  TYPE  WTY  AVAILABLE 

ENO 


SPAR!  PARTS  USAGE  FUR 


SI TF  DEMANDS  SITE  DEMANDS 

THIS  PERIOD  TO  DATE 


PER  100  ENDING  *♦*♦.*♦  ? 


R  T  30 


NORS  T IMF 

NORS  TIME 

NO.  NORS 

NO. 

NORS 

THIS  PERIOD 
ENO 

TO  DATE 

THIS  PFR 

TO 

DATE 

1 
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•IBFTC  RPG30 

REPORT  RPG301U 

*  *  *  *  *  * 

•  L3i(L)«L32(L)tL33(L)*L  34(  L)*L35(L>  » L  36  (  L )  « L37 ( L)  « L38 ( L )  ♦ 139 ( l  ) 

ENO 

* 

♦.##  *.**  *  *  * 

* 

ENO 


♦IBFTC  MOGTO 

REPORT 

HDGTg 

♦  MEMBERS 

OF  TQUES 

♦  no 

RID  T500 

T600 

T200 

T504 

T700 

END 

* 

2 

T  800 

T14S0 

2 

END 

•IBFTC  RPGTO 

REPORT  RPGTQII) 

•  *  *  «.***•*  «,**•**  *.«••**  *.*♦**#  «,***«* 

*  TTI0U».TRI0m,T500l  I  ),  T600(  1  I ,T200(  I  )  ,T504t  1 1  ,  T700  (I)  ,  T80G  U  )  t  T  I 
ENO 


* 


*.*•**» 

450III 


ENO 


*.*«•** 


* 
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INITIALI2ATI0N  dpcv 


♦flMTRr 

1 

1  22 
?3 
2*> 

25 

26  28 

29 

30  32 

33 

34 
OC 
01 
02 
03 
04 
05 
06 
07 
08 
09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


MAIN 

50 

I 

H 

R 

R 

l 

R 

l 

R 

R  100  33 


7.00000 

7.00000 

7.00000 

8.00000 

100 

(12. 


Prograaa  4  to  7 
AIECBAFT  UKC0VE1Y  PACKAGE 
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The  "recovery  package"  deal*  with  the  problem  of  maintenance 
quality.  The  diaplaya  that  follow  refer  to  the  acasur**  aaaociated 
with  the  recovery  of  an  aircraft  from  the  effect a  of  the  prevloua 
aortie . 

The  beat  way  to  determine  maintenance  quality  la  to  determine  ita 
impact  on  the  atated  miaaion  of  the  weapon  ayatea.  Good  aelntenence 
reaulta  in  high  miaaion  capability,  poor  maintenance  degradea  miaaion 
capability.  Ho at  meaaurea  of  maintenance  quality  contain  thla  idea 
by  implication,  generally  being  atated  aa  an  index  of  capability  to 
deliver  clean  aircraft  quickly. 

The  aortie  la  alao  a  major  factor  in  aircraft  maintenance.  The 
aortic,  more  then  any  other  factor,  deterainea  maintenance  ectlona. 
Consequently,  aelntenence  quality  la  more  intimately  aaaociated  with 
the  aircraft 'a  recovery. 

Analysing  aortie  data  ia  a  two-atep  proceaa .  The  flrat  atap  la 
to  proceaa  the  label  record  tape  data  by  uae  of  a  "recovery  prograa." 
Thla  reaulta  in  the  generation  of  an  "Aircraft  Output  Tape,"  (format 
deacrlbed  in  Fig.  IA),  which  la  uaed  to  generate  the  aelected  Prograa(a) 
4-6.  Thla  tape  auat  be  aorted  on  tail  nuaber  and  "tlam  job  etarted." 

INITIALIZATION 

The  varlablea  deacrlptlon  and  lnltiallaatlon  table,  which  follow#, 
contalna  the  information  required  to  initialise  the  program.  An  exaaple 
lnltiallaatlon  data  deck  listing  follows  the  "OUTPUT  PVOCIAM"  section. 
The  prograa  requires  lnltiallaatlon  of  37  variables;  only  3  require 
values  (see  Table  A).  Array  23  specifies  the  quantity  of  baeea  to  be 
analysed.  Array  2A  lists  the  base  nuabere.  Array  26  specifies  the 
total  quantity  of  failure  levels  to  be  Included  in  the  report.  Array 
27  specifies  the  failure  level  numbers.  Array  29  specific*  the  tlaa 
that  the  report  is  to  terminate.  All  of  the  other  Array*  are  set  to 
aero. 

mm  rMa^jasaimas 

The  input  to  this  prograa  la  the  tap*  generated  by  the  ABC 
Simulator . 


Table  4 


VARIABLE  DESCRIPTION  AND  INITIALIZATION: 
AIRCRAFT  RECOVERY  SORT 


ii 

i 


l 

o 

te. 


aircraft  output  tape 
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Thc  input  tape  conalata  of  a  12-variable  label  record  and  la  some- 
tinea  followed  by  a  10-variable  detail  record.  (See  pages  108  and  109 
of  RM-4659-PR). 

When  a  label  record  is  read,  the  value  of  EBAS  is  compared  with 
the  table  called  BASES.  If  they  are  equal,  the  record  is  processed. 
Therefore,  any  combination  of  1  or  more  bases  may  be  run  at  one  time. 

When  a  label  record  is  read,  the  value  of  the  failure  level  is 
compared  to  the  table  called  FLVLS.  If  they  are  equal,  the  record  is 
processed.  Therefore,  any  combination  of  1  or  more  failure  levels  may 
be  run  at  one  time. 

If  ETIME  is  greater  than  TMEND,  the  program  is  then  terminated. 


PERMANENT  VARIABLES 

This  list  is  complete  except  for  attributes  denoting  flrst-of-set 
and/or  last-of-set  and  predecessor  and/or  successor  of  set. 

Label  records  (see  page  108  of  RM-465i- PR) . 


IDSOR 

*  Idr 

IDSUB 

-  Idd 

SHFT 

-  Shift 

DAYW 

■  Dy/wk 

SXDW 

-  S/wk 

EBAS 

-  Base  no. 

VA 

■  Variable-1 

VB 

■  Variable-2 

VC 

-  Variable-3 

TRSM 

«  ID  Addresses 

MORE 

-  Dri 

ETIME 

-  Event  time 

Detail  records  (see  page  109  of  RM-4659-PR). 

DTLV1  •  Integer  variable  1 
DTLV2  ■  Integer  variable  2 
DTLV3  ■  Integer  variable  3 
DTLV4  ■  Integer  variable  4 
DTLV5  -  Integer  variable  5 
DTLV6  ■  Integer  variable  6 
DTLV7  -  Integer  variable  7 
DTLV8  -  Integer  variable  8 
DTLV9  -  Float  variable  1 
DTLVO  -  Float  varla'la  2 

Base  table. 

BASES  **  Number  of  sase  codes  to  be  processed. 
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SASE  -  Baa*  codes  Co  b*  processed. 

BFLAG  -  Controls  flow  of  events  es  a  result  of  EBAS  vs  BASES. 
Failure  level  table. 

FLVLS  •  Number  of  failure  codes  to  bo  processed. 

FLVL  •  Failure  level  codes  to  be  processed. 

TMBND  -  Time  initialised  to  end  this  run  prematurely. 


Name  -  MQUE  used  for  maintenance  events.  No  subscript.  Ranked 
on  ETXM2 . 

Owner  •  SIMSCRIPT  system. 

Member  *  HAINT. 

Ml  -  Start  time. 

M2  -  End  time . 

M3  -  Team  aise. 

M4  -  Tail  no. 

M5  -  Unit  that  failed. 

M6  ■  Team  ID. 

M7  ■  Request  ID. 

M8  «  Sit*  ID. 

M9  -  IDSUB. 

Name  -  SQUE  used  for  site  events.  No  subscript.  Ranked  on  SID. 

Owner  ■  SIMSCRIPT  system. 

Member  -  SITES. 

SID  -  Site  ID. 

ANO  -A  Site  No. 

BNO  -  B  Site  No. 

SHOD  -  Mode  of  site. 

SERNO  -  Tail  No. 

STATS  •  Status  of  site. 

STIME  -  Start  time  of  status. 

NFAIL  •  Number  of  failures  at  site. 

Name  *  SRTQ  used  for  sorties.  No  subscript.  Ranked  on  SI. 

Owner  -  SIMSCRIPT  system. 

Member  -  SORTS. 

51  *  Start  time . 

52  •  End  time. 

53  -  B  Site  No. 

54  •  Tail  No. 

S8  •  Site  ID. 

Name  -  TQUE  used  for  teem  events.  No  subscript.  Ranked  on  TTID. 

Owner  -  SIMSCRIPT  system. 

Member  -  TEAM. 

TTID  «  Teem  ID. 

TQTY  -  Teem  slse. 


140 


4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 7  MAlNTB  H 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4T  SIFbSB  *» 

4 


i lusnu  o 

2lL>SUt-  0 
4PAYW  0 
JSHFT  0 
r>SXDW  0 
f>t8  AS  0 
?V  A  0 
HVH  0 
»VC  0 
i‘)T<SH  0 
ll*0«F  0 
12LUMI-  0 

t  30TIVI  0 
14DTLV2  0 
ISDTLV3  0 
160TLV4  0 
l  7DTLVS  0 
lAOTLVb  0 

1  n)TLV7  0 

2  ,1'TLV'J  0 
2inTlV<*  0 
22DTLVO  0 
2  IHASfc S  fc 
24HA Sc  I 
2  SHF  l  Af,  0 
2<>FIVIS  t 
27H.VI  l 
2HHSITK  0 
2lHMtN0  0 
lOFSUUt  0 
MLSQUfc  0 
32FMUUE  0 
HLMQUfc  0 
34FSKTO  0 
isLSKTw  0 
36F  TOUh  0 

FTirgut  o 


T  Ml  l  F 

r  M2  2  F 

T  Mi  4  l 

T  M4  S  1 

T  MS  b  l 

T  M6  7  l 

l  M7  b  | 

T  M8  31  l 

f  MSI  32  l 

T  SMOUE  33  I 

T  PM-JIIF  34  l 


F 


F 

F 


F 


MUUEO 


T  sin  i 

T  Mil  2 


♦  Ml  L 


SQUtl)  ♦SID  L 


OOOOOOOOOOOOC'.  ooo 
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«• 

T 

UNO  A 

1 

* 

T 

SM»!I)  S 

1 

♦ 

T 

SMNO  6 

I 

T 

STATS  7 

I 

♦ 

T 

STIMF  8 

r 

♦ 

T 

NF  AIL  31 

i 

♦ 

T 

P  VJIf.  32 

i 

♦ 

♦ 

♦  T  SORT  E8 

T 

SS'JIIC  33 

i 

SRTCO 

T 

SI  l 

f 

♦ 

T 

b2  2 

F 

♦ 

T 

S  1  3 

1 

♦ 

T 

>4  4 

1 

♦ 

T 

bM  *> 

1 

♦ 

T 

PS’TTQ  6 

I 

♦ 

♦ 

♦  T  TLAM  8 

T 

S b  <  f4.  7 

l 

TQUfcO 

«■ 

T 

T  T I  (  l 

I 

♦ 

T 

TOTY  2 

1 

♦ 

T 

PTJUf  3 

l 

♦ 

♦  It*  FTC  MAIN 

T 

STjl  t  4 

1 

MAIN  ROUTINE 


PLANtT  -  AIPCRAFT  RiCOVfcRY  T APF  INPUT 


PURPHSt  -  TO  C  ^  t  A  T  T-  AIRCRAFT  STATUS  TAPt 
FUR  INPUT  TO  KrCMVbRY  PACKAGfc . 


INPUT  -  lAPfc  FK'OM  AHC  MOOH. 


. UUTPUT  *  A/C  STATUS  TAP)  . 


Kb  W I  Nil  H 
KEN  1  Ni)  N 

l  CALI  PI "l 
CALI  SHUT 


IF 

( I USUH ) 

tc 

( 

3)  , 

go 

TO 

i 

IF 

(OH  AG) 

NF 

1 

0)  , 

CO 

TO 

IF 

( insuin 

PU 

( 

1  10), 

GO 

TO 

no 

IF 

1  iOSOh) 

F  Cl 

t 

200) , 

CO 

TO 

200 

IF 

1  l(<  UP) 

1  U 

( 

son) , 

GO 

TO 

son 

♦  SI  L 


♦  T  T  I  0  L 
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IF 

I  IliSlln ) 

LO 

I  6001, 

GO 

TO 

600 

IF 

I  IOSUI  ) 

(  9 

{  *00)  , 

GO 

TO 

HOO 

IF 

I  IOSUH) 

F  0 

(  10021, 

GO 

TO 

1002 

IF 

I  IOSUH) 

to 

(  1450), 

GO 

TO 

1450 

IF 

I  IOSUH) 

Ui 

( 1900) , 

GO 

TO 

1900 

IF 

(  iusuu) 

tf) 

I 2000) , 

GO 

TO 

2000 

IF 

1  IOSUH) 

F 0 

12100), 

GO 

TO 

2100 

IF 

I  IDSUH ) 

IQ 

l?l*OI, 

GO 

TO 

2150 

IF 

(  lOSUf  ) 

H. 

(2400) , 

GO 

ra 

2300 

IF 

(  1  USUI- ) 

F  g 

(2400), 

GO 

n 

2400 

IF 

1 10SUI  ) 

FC 

(2600), 

GO 

TO 

2500 

IF 

1 10 sue) 

FC 

1 4100), 

GO 

TO 

4100 

IF 

I  10SU  J) 

F  C 

( 4200) , 

GO 

TO 

3200 

iitl  to  9999 


c 

4  CALL  Hi 
CALI  EXIT 
C 

110  CALL  R 1 10 
00  TU  9999 
C 

200  CALL  R200 
GO  TO  9999 

C 

'i 00  CALL  RSOO 
00  TO  9999 
C 

600  CALL  H600 
00  TO  9999 
C 

BOO  CALL  RAOO 
00  TO  9999 
C 

1002  CALL  R 1002 
00  TO  9999 
C 

l*. SO  CALL  R1450 
00  TO  9999 
C 

1900  CALL  R 1900 
00  TO  9999 
C 

2000  CALL  R2000 
00  TO  9999 
C 

2100  CAU  R2100 
v»0  TU  9999 
C 

21*0  CALL  R2150 
OU  10  9999 


C 


«j  o  o 
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2  300 


C 

?400 


c 

2soo 


CALL  R2  300 
on  TO  9999 

CALI  K24O0 
GO  TO  9099 

CALL  H2S00 
GO  rn  9999 


c 

3100  CALL  moo 
GO  rn  9999 
C 

3200  CALL  k 3200 
GO  rn  9999 
C 

*999  IF  (Ml)Rtl  EC  <01,  GO  M  l 
CALL  '90 fL 
GO  rn  9999 
C 

tNO 

♦IBFTC  RL PL 

SUKROnriNi  RLrtt 


RUOS  S-PHASf  UHt19)  ( it  |  N  MODI) . LAHLL  RECORDS. 

LET  ftFLAG  *  0 
C 

X  HEAP  <9|  11,12,1  3,  <6,17,  IH,  19, 110, 111,11? 

C 

STORK  II  IN  lOSnR 
GTOR^  I?  IN  10SUP 
STORE  I  3  IN  SHF  T 
STORE  I*  IN  OAVW 
STORL  IS  IN  SXD* 

STORK  16  IN  ^  HA S 
STORE  I?  IN  VA 
STORE  I R  IN  Vtt 
STORt  19  IN  ?C 
STORL  110  IN  TR SR 
STORF  I l  l  IN  WORE 
STORl  II?  IN  E  T I Rf 
C 

IF  I  F  T  1  ME  |  f.M  (  T  MEND  I ,  GO  TO  l 
GO  TM  9999 
C 

1  CALL  Kl 
CALL  F X I  T 
C 

9999  RETURN 
tNO 

•  IHFTC  SELtt  T 

StM  ROUTINE  SELECT 


n  m.  e*  c-  r*  •  r  r  o  r»  r*.  o  o 
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PURPOSI  -  TO  SELECT  tVfc'NTS  HY  RASE. 


UO  TO  l,  HIP  LALH  HASPS  1 
If-  KRAS)  tti  (RASli(ll)t  Ul)  TO  i 
1  LOOP 

LET  HI  LAO  *  1 
oo  rn  9999 

?  LET  (’FLAG  *  0 
GO  TO  9999 

9999  RE  TURN 
LNO 

IliFTC  ROT l 

SUHKOUT I NF  RUTL 


C 

C 


.READS  S-PMASt  TAPfc(9l  <  B I N  HOOF ) . DETAIL  RECORDS. 

READ  (9)  l  l, 17,1  KIA, IS, 16,  17, IP, 19, 110 

STORE  II  IN  OTLVl 
STORf  17  IN  l;UV2 
STORE  I  1  IN  0TLV1 
STORE  I*.  IN  OTIVA 
STORE  IS  IN  OUVS 
STORE  16  IN  OTLVb 
STORE  17  IN  0TLV7 
STORE  IH  IN  DTLVR 
STORE  19  IN  0TLW9 
STORE  I  10  IN  OTIVO 

LIT  NORE  ■  WORE  -  1 


SUBROUTINE  R3 


RETURN 
ENO 

•IbFTC  R 1 

L 

C 

C . PURPOSE  -  TO  CLOSE-OUT  ANO  ENO  R-PHASE. 

C 

C 

C.....IOSUR  •  3. 

C 

C 

MfcMINO  TAPE  9 
C 

ENOFILE  TAPE  R 

C 


rtrnnnpooonoon 
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KCWINO  TAPE  H 
C 

CALL  MUH(, 

C 

1  LO  m  2,  FOR  tACH  M  IN  MUUE 

LLT  DTlHt  =  M1(M| 

CALL  CLMIOTIME, 1 1,12*1  JJ 
LET  1S1  *  11 
LET  IS2  *  12 
LET  1*3  *  13 
C 

LET  DTIMF  =  N2(v| 

CALL  CLKUDTIMI,  11,12,1  J) 

LET  IE  1  *  U 
LET  IE?  =  12 
LET  IE  3  *  13 
C 

c  tALL  N9«PG(M,  IS1 1 IS2,  1S3,  It:  l,  lE2t  IE3) 

?  kEPfAT  1 
C 

9499  RETURN 
LNO 

♦IBFTC  R 1 10 

SUBROUTINE  RltU 


PURPOSE  -  START  MAINTENANCE  FOR 

111  EXOG.  FAILURE. 

(?)  EXOG.  PM, 

(31  EXOG.  OVERHAUL. 


I0SU8  >  110. 


C 


C 

C 

c 

C 


FIND  FIRST,  FOR  EACH  N  IN  SUUE 
XUHERE  15,  IF  NONE,  GU  TO  9999 


*  Ml  IH  ISIOfNU  £0  ITRSM) 


If  (VCI  EW  (21,  GO  TO  2 
If  (VCI  Eg  (4),  GO  TO  4 
If  (VCI  Eg  (6),  GO  TO  6 


GO  TO  9949 


.'..EXOG.  FAILURE. 


2  00  TO  20,  FOR  EACH  FIVES  I 
If  (VR)  Eg  (fLVL(l)),  GO  TO  21 


o  o  o  r*.  n  r  r  nn 
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20  LOOP 

GO  ft'  999< 

C 

21  IF  HfAUfiSn  NE  (0),  GO  TO  IZ 
CALL  CKO  II I  SI 

LET  STATSIIS)  *  1 
LET  STILUS)  =  ETIMt 
C 

22  LET  MF4ILIIS)  »  NFAILIIS)  ♦  1 

C 

CREATE  MAIN!  CALLED  fc2 

STORF  SEKNOtlSI  IN  M4IE2) 

STOKC  fcTIHF  IN  MUE2I 

STORF  VA  IN  RSCE21 

STORt  TRSP  IN  RdlE21 

SfOKt'  IDSUH  IN  H9IE2I 

FILE  t 2  IN  MgoE 

GO  10  9999 

. LXOG.  PR. 

4  CREATE  MAINT  CALLED  E4 

iTORF  SFKNOIIS)  IN  H4CE4I 
STORE  ETIPt  IN  MIIE4I 

STORF  VA  IN  H>IE4> 

iTORE  TKSP  IN  RHtE*  ) 

STORF  ItJ SUB  IN  H9|  E  4 1 

FILE  L 4  IN  MJUE 

GO  TO  9999 

...... .EXOG.  OVERHAUL. 

6  CREATE  MAIN?  CALLED  E6 
C 

STORE  SkMNOtlSI  IN  R4IE6I 
STORE  EURE  IN  NIIE6I 

STORl  VA  IN  R5IE6» 

STORE  TkSR  IN  R9IE6I 

>TORE  If  SUR  IN  R9IE6) 

C 

FILE  t 6  IN  ROUE 
C 

GO  TO  9  199 

C 

9999  mETIIKN 
END 


r^nnonnooo 
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♦IBFTC  R200 


SUhKOUTINfc  »70l 


-PURPOSE  -  £N0  MAINTENANCE, 


IDSUt  *  200. 


IF  IHOKFI  to  (01,  00  FO  9999 
CALL  KOTL 

«MM0  F",sr*  fm  t,CH  "  '«  ««h*.  to 

X  MHt  R  t  |M,  If  NONE,  Gn  ro  „„  kHD  60  (VA)  • 

X WHERE NONE « ^  Go*\ 0^9999^ *  “‘™  E0  IOHVII, 

IF  (NFAIL(IS))  NF  (1),  CO  TO  1 

CALL  CROJI I S) 

LET  STATS! I S I  -  7 
LET  SUMEtlS)  •  Flint 

1  STORt  er (ME  | N  M?( IN) 

2  tsr,n\  *• 

3  REPEAT  7  11 

CALL  CROOI | M| 


tU  VAILUS)  •  MEAIL(IS)  -  J 

REMOVE  |M  FROM  MQUE 
OEITROV  MA1MT  CALLED  |M 


9999  RETURN 
EMO 

•IMFTC  MSOO 


SUBROUTINE  RSOO 


t . .  ‘  u*"  oiSMttN  »r  uu  cmrooi, 

c 

C.*..,|OSl>R  •  SOO. 

0 

c 


( 


rnofinrnno  •  r>  n  e~r‘r*nr>i'innr> 
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C 

if-  imorli  m.'  ( o >  •  r.r»  rn  9990 
C4LL  t»uri 

c 

if  iotlvm  tu  imsuei*  on  rn  999* 

c 

UNO  HRM|  FUR  FACM  M  IN  MJUL .  WITH  ( M  7  ( M)  »  EQ  IVC), 

X  AND  I  M8  t  H |  )  EU  IDTL91 )  * 

XWHfRt  |M,  Jr  NONE,  GU  TO  9994 
C 

STORE  TRSN  IN  MM  |M) 

C 

>499  RETURN 
ENT) 

♦IhFTC  R6PO 

SUf'KOUTlN;  R600 


PURPOSE  -  l F  AM  ARRIVAL  AT  SITE. 


I0SU1  *  600. 


F|NC  MKST.  FOR  EACH  M  IN  NvJUl  »  WITH  (M6(M)>  EO  ITRSM), 
X  ANO  IN8INH  €0  IVA), 

XWMER'  |W.  IE  NONF.  GO  Til  4>|94 

STORE  FUME  IN  NttIM) 


9499 
Ibf  TC 


4FTVJMN 

END 

R800 

SUER OUT  INI  R800 


PURPOSE  *  TEAM  COST  ENAOUTE. 


IOSIJH  •  100. 


I  UO  TO  i*  FOR  FACH  M  IN  TOUI  ,  w|  Tm  |TI|D(M)I  EO  UR$N> 
REMOVE  *  IRON  TOUE 
OESTWOV  TEAM  CAL  LEO  N 
i  REPEAT  | 

C 

9N9M  Rf  TlIMN 
ENO 

•iFflC  R1»U»? 
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SUrtROltflN*  R10U<> 

C 

c 

C . PURPOSk  -  PERSONNEL  A  SS  I  GNfcD  TO  T'ANS  ( CREW  SIZH. 

C 

C 

C . IO$U«  =  10u2. 

C 

C 

C 

UNO  FIRST,  FDR  FACH  M  |N  T  JUfc ,  WITH  (TTIOlM))  F<j  |VM, 

xmhfkf  ir,  if  none,  oij  rn  i 

c 

let  r u r y i h )  *  r c r v I ** »  ♦  vc 
go  ro  wtq 
c 

1  CRE  A  Tl  T  t  AN  r.AUFO  I 
store  va  in  fTinm 

STnw;  VC  IN  T'.TYIU 

HU  T  IN  Tuut 
GO  i  '  ^999 

c 

9999  RETURN 
lNO 

•IRFTC  RlASO 

SlU.ROU  T  |  NT  R|*M) 

C 

c 

C . PURPOSE  -  PERSONNEL  RE  1 1  INCH  TO  UASE  POOL . 

C 

C 

C . IOSUH  •  l*SO. 

C 

C 

C 

I  CO  TO  /,  f OH  FACH  >  |N  !  .U»  ,  m|  TM  UM0IN))  kO  ITRSH 
RtNOVk  *  FtON  TCUE 
U€1T»(IY  fEAN  C AILED  * 

/  HIPC  AT  | 

C 

9999  *l Turn 
LNO 

•IhITC  R 1 900 

SUhROU  T  I  N*  R19U0 
C 
C 

(•••••  PURPOSE  -  GFNkRATE  SITES  AT  HAS!  . 

C 

L 

C . IOSUH  *  1  '#0i  . 

C 

C 


oooooonoo 


ISO' 


If-  ( MQRfr  I  fcO  iOl  ,  Gl)  TO  999  i 
V.AL1  ROIL 

C 

CHEAT!  SITtS  CALLED  S 
C 


STORE 

T  R  SM 

IN 

SIOISI 

STOR«r 

VA 

IN 

ANO( SI 

STORE 

VH 

IN 

I’NOISI 

STORE 

VC 

IN 

SMOUl SI 

STORE 

UILV1 

IN 

SERNUl S) 

C 

LET  STATSISI  -  ? 

LET  ST1MEISI  =  FTIME 

C 

IF  IVC)  tit  (MSITI),  LtT  MSI  Tt  *  VC  ♦  l 

c 

FILE  S  IN  SOUL 
C 

LtT  199'  =  999 

Ltl  199999  =  99999 
LET  ITAILN  *  CTLVl 
LtT  ICODt  *  2 
C 

MR  I Tt  ON  TART  8,  1999,  199999,  ITAILN,  1999,  ICODE 
FORMAT  ( SH, I J, I S , SI  8 , I A , S28, I  3, S 1 0, I II 
C 

GO  TO  9999 
C 

9999  RETURN 
I  NO 

* IBFTC  R2000 

SUrtROUT I NL  R2U00 


PURPOSE  -  RtUULST  FOR  PM. 


IDSUH  *  2000. 


FIND  FIRST,  FOR  EACH  N  IN  SOUt,  WITH  ISIOINII  EO  ITRSM), 
X WHERE  IS,  IF  NONE,  GO  TO  9999 
C 


CREATE 

MAINT 

CALLEO  P 

STORE 

SCKNOUSI  IN 

MAI  P  1 

STORt 

TR  SM 

IN 

M8IP) 

STORE 

ETIMt 

!N 

MUPI 

STORE 

VR 

IN 

MSI  P I 

STORE 

ID  SUB 

IN 

M9IPI 
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file  p  in  «uu» 

c 

9999  RETURN 
tND 

*  I  tip  f  L  R2100 

SUHROl'TlNr  R2100 
C 
C 

c . PURPOSF  -  START  RAIN!.  PM  PM. 

C 

c 

C . lOSUil  =  2100. 

C 

C 

C 

PINT  FIRST,  FOR  f  ACM  H  IN  H  OF,  WITH  IM6IM))  tu  IVC), 

X  AND  I M8 I M )  )  t Q  ITRSM), 

XANO  I H5 1 M ) )  tO  t  V B ) ,  WMfcRt  IM,  IP  NONE ,  GO  10  9999 
C 

F 1  NT  FUST,  FI  P  EACH  N  |N  SuUfc,  rfITH  ISll'lN))  EO  ITRSM), 
XhHEPh  IS,  IF  NONE,  GO  TO  99  99 
C 

IF  I  NF  AIL  US))  NE  10),  GO  TO  1 
CALL  ,Mj)IIb) 

LET  STATS! IS)*  1 
LET  ST  I  ME  |  I  S  >  *  t  T I  *1: 

C 

1  STORE  fc  T  IME  IN  HI( IN) 

LET  NFAIL! IS)  *  NFAIL! IS)  ♦  l 
C 

9999  RETURN 
tNO 

♦  IHFTC  R2lr>0 

SUBROUTINE  R21U0 
C 
C 

C . PURPOSE  -  START  MA I N  T •  FOR  FAILURE  CAUSEO  BY  PM. 

C 

C 

C . IOSUH  =  1  so 

c 

c 

c 

UO  TO  l,  FOR  EACH  FI  VIS  I 
IF  (VA)  fcQ  (FIVE (I )).  GO  TO  i 

1  LOOP 

GO  TO  9999 
C 

2  FIND  FIRST,  fOR  \  AGH  N  IN  SUUE ,  WITH  ISIOIN))  EO  ITRSM), 
XWHERt  IS,  IF  NONE ,  GO  TO  9999 

C 

IF  (Nf  AILIIS) )  NF  (0) ,  GO  TO  ^ 


J  u  u  u  u  o 
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CALI  CPC  31  lb) 

LET  STATsllS)  =  I 
LET  STtMFflS)  =  FTIMfc 
C 

3  LET  NFAll  (IS)  *  NFARIl  S)  ♦  1 
C 

CREATE  PAINT  CALLED  M 
C 

STORfc  St  kNUI IS)  IN  MAIN) 

STORE  ETIMH  IN  M|(N) 

STORE  Vh  IN  MbIMJ 

STORE  Fp  SM  IN  Mill M  ) 

STOPf  IL*SUB  IN  M9|M) 

C 

FILE  M  IN  MuUE 
C 

9999  kETURN 
LNO 

♦  H'ETl  R2300 

SUbROUT I NC  R2  300 
C 

c 

PURPOSE  -  START  MAINT.  FOR  FAILURE  CAUSED  BY  CONTINUOUS  MONITOR. 


IOSUB  *  2 3UO. 


UO  TO  I,  FOR  EACH  ELVIS  I 
IF  (VA)  EU  I FL  VL  I  1  ) )  *  GO  TO  2 

1  LOOP 

GO  TO  9 999 

C 

2  FIND  FIRST,  EUR  EACH  N  IN  SUUE,  MITH  ISIDINJI  EQ  ( TRSM) , 
XWHER l  IS,  IE  NONE,  GO  TO  9999 

C 

IF  (NFAILIISI)  NE  10),  GO  TO  3 
CALL  CRU3IIS) 

LET  STATS! I S )  «  l 
LET  ST  I  ME  1 1 S I  «  ETIMt 
C 

3  LET  NFAILUS)  «  NFAIL(IS)  ♦  I 

C 

CREATE  MAINT  CALLED  M 
C 

STORE  SCRNOUS)  IN  MAIM) 

STORE  ETIME  IN  MUM) 

STORE  Vfl  IN  MUM) 

STORE  TRSM  IN  M8IMI 

STORE  lOSUft  IN  M9IM) 

C 


nnrinnornn 
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f I L t  M  IN  MQUl 

C 

9999  RETURN 
tNO 

♦IFFTC  R2400 

SUt'ROUT  l NF  R24U0 


I'UR^OSe  -  RT SOURCE  REQUEST  for  failures. 
lUSUfl  =  2400. 


c 


c 


c 


c 


IF  (MORE)  EQ  (01,  GO  TU  9999 
CALL  ROTL 

IF  (OrLVI J  EC  I  1) ,  GO  ro  l 

IF  (DTLV1)  Eu  (2),  GU  TO  246 

IF  (OfLVI I  EO  ( 3) ,  GO  TO  3 

IF  (UfLVU  EC  (4),  g(j  to  *46 

IF  (OTIVI)  EM  (S),  GO  TO  5 

IF  (OTLVU  eg  ( 6 ) ,  GO  TO  246 

GO  TO  9999 


I  FIND  FIRST,  FUR  EACH  M 
XAND  (MR ( M ) )  EO  (TRSMI, 
XGO  TO  9999 


IN  MOUE,  WITH  (M9(MJ)  EO  (2300), 

ANO  ( M5 ( H ) )  EO  (VR),  WHERE  IM,  IF  NONE, 


STORE  VC  IN  M7 ( | M) 
GO  TO  9999 


246)<flWD  FIRST*  F0R  EACH  M  ,N  *oue, 

X 

X WHERE  IM,  IF  NONE,  GO  TO  2460 


WITH  (M9(MM  EQ  (110), 
AND  (MR(M))  EO  ( TRSN) , 
ANO  (M5(M)»  EO  (VBI, 


STORE  VC  IN  M7( IM) 

GO  TO  999* 

24*0  FIND  FIRST,  FOR  EACH  M  IN  MQUEt  WITH 

J  ANO 

*  ANO 

X WHERE  IM,  IF  NONE,  GO  TO  9999 


(M9(M)  ) 
iMe'M' 
(M5(M»  . 


EO  12000) 

(TRSM) 


*  0/81, 


» 

t 


STORE  VC  |N  M7( (M) 
GO  TO  9999 


i  FIND  FIRST, 
XANO  (M«(M|) 
XGO  TO  9999 


FOR  EACH  M  IN  MOUE*  WITH  (M9(H))  EO  (2500), 

EO  (TR$M),  AND  ( M5 ( M ) |  EQ  ( Vft)  *  WHERE  IM,  IF  NONE, 


oooonoooo 
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C 

STORE  VC  IN  H7IIH) 

STOKE  E T I Ml  IN  *11 |M| 

C 

FIND  FUST,  FOR  EACH  N  IN  SOUE,  KITH  ISIDINM  EW  IHMMII, 

X WHERE  IS,  If  NONE.  GO  TO  9999 
C 

IF  (NFML(ISI)  ‘it  |u),  Gil  TO  30 
CALL  LE0  3US) 

LET  ST AT  SI  I S I  «  l 
LET  STIMEUS)  =  FTIME 

C 

30  LET  NFAIL(IS)  *  NFAILIIS)  ♦  1 
C 

GO  TO  9999 
C 

5  F I  NO  FIRST,  FOR  EACH  M  IN  MWUE,  KITH  I M9 ( M)  I  EO  (2|5u), 

XAND  FU  I TRSMJ ,  ANO  I M5 I M ) )  EO  |Vh),  WHERE  |M,  IF  NONE, 

XGO  TO  9999 
C 

STOKF  VC  IN  M7IIM) 

GO  Til  9999 
C 

9999  RETURN 
tNO 

•IBFTC  R250O 

SlitROOTINE  R2SU0 


PURPOSt  -  START  MAINT.  FOR  FAILURE  FOR  UNUET fcRMINEO  FAILURE. 


lOSUi'  «  2500, 


UO  TO  1,  FOR  EACH  FLVLS  I 
IF  IVA)  EO  IFLVLIN),  GO  TO  2 

1  LOOP 

GO  TO  9999 
C 

2  FIND  FIRST,  FOR  EACH  N  IN  SOUE,  WITH  ISIOINIJ  EO  ITRSM), 
X WHERE  IS,  IF  NONE,  GO  TO  9999 

C 

CREATE  MAINT  CALLED  M 
C 

STORF  SFKNOIIS)  IN  NMNI 

STOKF  ETIME  IN  N1IMI 

STORE  VP  IN  NSIN) 

STORF  TRSM  IN  N0IHI 

STOKE  I liSUH  IN  M9IM) 


C 


ononnonon 


fILt  M  IN  MtiUC 


9999  RETURN 
END 

♦IbFTC  R3100 


SUL'RQUTINt  P  3 1  GO 


£ . PURPOSf  -  START  FLIGHT. 

C 

S . IUSUH  *  3100. 

C 


c  AWHERfc^ IS ,T IF^NQNE^CG0^T0^9999^ *  *,TH  ,SiD,HU  tQ  ^RSM). 

CALL  CROi(IS) 

C 

LET  STATS! 1 S 1  ■  o 
L€T  SriMEUS)  .  ftlHt 

CREATE  SORTE  CALLED  S 

V 

STORE  SERNOIISI  IN  S9ISJ 

iT,"E  lH  Sl(S* 

STORE  BNOHSJ  IN  SltSI 
c  STORE  TRSH  IN  S8ISI 

FILE  S  IN  SRTG 
C 

9999  RETURN 
END 

♦IBFTC  RJ200 


SUBROUTINE  RJ200 


PURPOSE  -  END  FLIGHT. 


I0SU6  •  3200. 


*£«r°eTsrtt:  Thw,  go^o^JS;  with  <S8l"n  eu  ««*"»• 

XfcHERE^  !  St  ^If^NONE^UU^T  0^9999^*  fS,0,P*M  E«  TTRSHI, 

CALL  CRD3IIS) 


oooooorvoo 
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C 

LET  STA.il  IS)  «  2 
Lfc T  STILUS)  *  tTIMt 
C 

STORE  tTIMt  I N  S2USHT) 

C 

CALL  CR02  (  I  Sri  T  | 

C 

REMOVE  I SRT  MQM  SkTj 
DESTROY  SDK T6  CALLED  ISkT 
C 

9-199  RETURN 
tNO 

♦I0FTC  CRDc 

SUPkOlJT  1  NT  CRUO('M) 


PURPOSE  -  OUTPUT  MAINTENANCE  DATA. 


CALLED  i’V  R200. 


LET  OTI-fc  *  *1(IM) 

CALL  CLKIIDTIME.  I  1,  12, IT) 
LET  IS  1  *  II 
LET  I S2  «  12 
LET  I S 3  *  13 
C 

LET  OTIME  *  M2< I M J 
CALL  CLKllOTlME.il, 12, l  3) 


LET 

IE  l  i 

■  11 

LET 

IE 2  > 

■  12 

LET 

IE 3  « 

•  1  3 

IF 

(  IS  1  > 

EQ  IIE1), 

GO 

TO 

100 

1  IF 

1  ISII 

eq  ntn. 

GO 

TO 

10 

LET 

1  IE  1 

>  IS1 

LET 

1 1 E  2 

«  23 

LET 

HE  3 

^  S3 

C 

CALL  CNVRTt ISl, IS2, ISJ, 1 1  F  l ,  1 1 E 2 , 1 1 E 3,CNVTHR ) 

C 

LtT  IHktLP  »  CNVTHk  •  10.0  ♦  .5 
IP  (IHMILP)  CO  (0),  LET  1HMELP  »  I 
LET  IMRMAN  *  IMRELP  •  M3 1  I M ) 

C 

MR1TE  UN  TAPE  «,  ISl»IS2,tj),(ltl»IIE2»IIE3, 

4  M3IIH),MM  IMI.MM|M»#|MRMANtMM|M),!Sl»lHRtLPt 

«  M9IIMI.0 


o  o  r> 
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x  4T  i5.'si,,ii)l2,l4,,;>,,?,l?,S0,,4*S7»I4»S8*^*i^*n.ntSi 


c 

c 


LET  I S 1  *  ISi  ♦  i 
LET  IS?  *  o 
LET  I  S3  =  D 


CO  TO  l 


C 

C 


10  !!?7>  *e  lit?),  oo  rn  ioo 

rn  NE  &0  To  100 

CO  TO  V999 


100  MU  CMmnisi.isj.isi,  iei,  itj.iu.cxvrH*) 


LET  1HRELP  *  CNVTHR  •  10.0  ♦  .5 
IE  flHRELPl  EQ  (0),  UT  (HRELP  ,  l 
LET  IHKMAN  »  I  HRELP  *  Mil  f  H I 


C 

C 


/RHt  °N  UPt  ••  ISUIS^IS3,|tlfIt^,E3r 
X  JJJJ  .  f  m«MAN.MM  IM)  .  ISI.  IHRELI 

xf0RMT  "lll'iln ;,2*I4'^^».«,h,s7thls,lIM,inil,tSli 


9999  RETURN 
LNO 

• I BFTC  CRD? 


C 

C 


SUBROUTINE  CROZlISRT) 


Co. ...PURPOSE  -  OUTPUT  SORTIE  DATA. 
C 

C . CALLED  HY  R3?00. 


LET  OT IPf  «  SI  It  SMT) 

CAU  cm,0T,*E>,,.Ufl)) 

LET  IS!  «  11 
LET  IS?  «  12 
LET  | S3  -  13 

LET  DTIPf  >  S2IISRT) 

CALL  CLRllOTlPE.il.  l2tH| 
LET  IE  l  «  u 
LET  IE?  «  1? 

LET  IE  1  «  !J 


,f  im>  EO  lieu.  00  to  ioo 


r>r*oooor*or> 
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C 

l  IF  f  ISl)  to  (  I F 1  )  *  CO  TO  10 
Ifcl  111:1  *  1 S I 
IH  lit?  *  ?  3 
LET  III  3  =  *>9 
C 

CALL  CNVKT  I  1  S 1 « I S?,  I  Si.  IIEl.lIE?»lIE3.CNVTMk) 

C 

LET  IHRELP  *  C9VTKR  •  10. 0  ♦  .5 
IF  (IHRELP)  EC  CO),  LET  IHRELP  =  1 
C 

wHIlt  ON  TAPE  6,  lSl*IS?,(Si,IlLl«IIt?,Ilti, 

A  SAC  1SRT),SM  ISRT),IS1  ,  I HRFLP , SB < I SRT ) , 2 

FORMAT  (Sfi, 14, |?»|? ,14*12. I?»S10»I4*S14»I4*S10»I3»13»SI» 
A  15, SI,  III 

C 

LEI  I S 1  *  151  ♦  1 

LET  IS?  *  0 

LET  IS3  -  0 

C 

*0  Tn  1 

c 

10  IF  CIS?)  NE  C  Itcl,  00  TO  100 
IF  I  IS 3)  NC  ( IF  3),  GO  TO  100 
CO  TO  9999 
C 

100  CALL  CNVUTC ISl. IS?, 1  S3, IE1, I E2 . I F 3.CNVT HR ) 

C 

LET  IHR1LP  *  CNV I  HR  •  10.0  ♦  .5 
IF  C IHRELP)  EO  CO),  Ltl  IHRtLP  «  l 
C 

■RITl  ON  TAPE  8,  ISl,IS?.IS3,IFI«IE?,IE3, 

X  SAC  ISRT)«S3(lSkT).ISl« IHRELP, S8  C I  SR  T ) , ? 

FORMAT  C$«, 14, I?, I?, 14, I?, 1?, SI  0,1 4, SI  4, 1  4, S 10, II. 1 1, St, 
X  15. SI. II) 

C 

9999  REIO.'N 
END 

•IdPTC  CHI  J 

SUER  OUT  I  NE  CRUM  IS) 


PURPOSE  -  OUTPUT  STATUS  OATA. 


CALLIU  HV  -  Hi  10,  R?00*  R210C,  R2150.  R2100,  R2S00,  R)IOO*  R1200. 


LET  01  INI  »  STIHCMS) 

CALL  CL*l(Dtl*e, I  1.12,1 )) 
LIT  ISl  >  11 


159- 


LET 

IS?  = 

I? 

LEI 

IS)  * 

I  ) 

c 

LET 

DT  I M 1 

s 

t  T  1  ME 

CALL  CL* 1IDT 1  ME , 1 1 « 

I?. 

1  )> 

LET 

III  - 

1 1 

LEI 

IE?  = 

I? 

LET 

It)  = 

I  3 

c 

IF 

1  ISO 

N£ 

(It  1)  , 

GO 

TU 

toon 

IF 

1  IS?) 

Nt 

(It?), 

GU 

TU 

I  one 

IF 

I  IS  I) 

N). 

(ID), 

GU 

TO 

loot* 

GO 

Tl>  9919 

c 

luoo 

IF 

USD 

EU 

fill). 

GU 

in 

10t. 

C 

l 

IF 

(ISl  I 

tu 

(I!  II. 

GO 

TO 

10 

LET 

I  It  1 

=  ISl 

LET 

lit. 

*  ?) 

ii  r 

1  IF  l 

*  S  1 

C 

gall  cnvi>t (  m,ir.?,(D,  1 1 r  i,iit?,m  j.cnvtmo 

c 

LET  I MM  t  LP  »  C  9V  f  HA  •  10.0  ♦  .s 
IF  ll*'KllP)  *t  Kl.  LET  IMKFLP  *  I 

C 

k.R|T'  (IN  TAPE  •>.  ISl ,1 >?, I >  1, 1 l‘  t .1 II?. I  It  ). 

X  STAISt  IS)  .SFKNtU  h),hl,|H'i  LP.IDSIH.  ) 

FOR-AT  (SP,1<»,I<»I?,I**  l?,l?,i?.>x,l<».S?ti,l  <  ,1  ),Sl  ,  lr>,  SI  ,  III 

c 

It?  I  s  I  *  ISl  ♦  l 
LET  IS?  ’  0 
LfcT  I  » I  *  0 

c 

oO  rn  l 

c 

10  IF  I  IS?  »  NE  I  1 1  ?  I »  GO  n;  100 
IF  I  IS))  NE  IIHli  G()  Hi  100 
,.0  In  9999 
C 

too  cau  CNVRfusi.isa. is),  n  i.it?.i- ).r  <vih^j 

c 

III  Ih'-UlP  «  C  NV  f  HR  •  10.0  ♦  .S 
IF  I  I  MR  l  IP )  1C  101,  LFl  I  H*<r  l  P  *  l 
C 

WRIT!  ON  TAPI  P,  |Sl,IS?,IS),lrl *  I (  ?  « I k  ). 

X  SI  A  ISl  1  S)  ,S!  RNt  I  IS) ,  |  >!  ,  !*«»  IP.IOSU'*.  I 

I  OOP  A  I  I  S8,  I  A,  I?,  I?,  I  A,  l?,l?,|?.S“,U,S?H,l  t.l«,M,|S,M.II) 

c 

1999  RE  TUl’N 
tNO 

•  i  i  f  r c  cnv»  i 


J  u  u  u  u  o  *000 
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SUHRDUT I  Nl  CNVKTl  I  SI  »  1  St  .  I  S3,  !  fc  1 ,  I  l-  2  ,  I  F 3 ,  CNVTMR  I 


PURPOSE 

* 

TO  CONVERT  STOP  -  START  TIME  UAV  HOUR  MINUTES 

TO  oecimal  hours. 

LET  FSI 

> 

ISi 

LET  FS2 

M 

IS? 

LET  FS3 

A 

1ST 

LET  FEl 

A 

I E  1 

LFT  FE2 

A 

IE? 

LET  Fti 

A 

IE  3 

LET  CNVIMH 

*  UIFE1  •  ?  4 . 0  ♦  60.0)  ♦  IFE2  •  60.0)  ♦  f  E  3 ) 

X  -  I  ( F  SI  •  24.0  •  60.01  ♦  (FS2  *  60.0)  ♦  FS3II 

X  /  60.0 


RETURN 
l  NO 

IHMC  CLK  1 

SUBROUTINE  CLRH0T1N6, 1 1 • 1 2 • I  3) 

. BURPHSt  -  TO  CONVERT  DEC  INAL  DAYS  TO  DAYS,  HOURS,  MINUTES. 

LET  ICY  «  DPARTIOTINfc) 

LET  | HR'  -  HPARMDTIMfc) 

LET  INN  *  NPARUOTINE) 

IF  (  INN )  NE  (6UI,  GO  TO  10 
LET  IHR  «  I HR  ♦  I 
LET  INN  •  0 

10  IF  I  I HR  I  IS  124),  GO  TO  20 
LET  IHR  «  IHR  -  24 
LET  tOV  -  IOY  ♦  1 
20  LET  II  •  IOY 
LET  12  •  IHR 
LET  I)  •  INN 

r 

V' 

return 

ENO 

•  IttFTL  NO  HO 

REPORT  MONO 

•  NAINT  START  ENO  CREW  A/C  SYS  T|0  RIO  SIO  lOSUt 

LNO 

• 

1 

LNO 

•IRFTC  N®R PC 

REPORT  NORPCIN, 1SI«IS2.IS)*IE1,IE2,IE3I 

•  •  •  P  P  P  •  •  P  •  *  *  *  P 

•  | SI.  IS2. 1$ J, IE  I , IE2. IEI.NJINI . N4INI .N5INI ,N6 INI .NTINI .NOINl . NO INI 

ENO 

P 
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END 


SENTRY 

1 

l  22 
2  3 

24 

00 

01 

02 

0) 

04 

05 

06 

07 

08 

09 

10 

11 

12 

1) 

14 

15 

16 
17 
16 

19 

20 


37 

0  2 
0  R 
1  R 


*<: 

21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
)) 
14 
95 
16 
17 
98 
J9 

40 

41 

42 
49 
44 


NAIN 


100  2  3 


100 

112) 


1 


4» 

46 

47 
4H 
44 
5(! 
61 
62 
6) 
54 
56 
66 
67 
Sri 
S'? 
60 
61 
62 
61 
64 
66 
66 
67 
6ri 

69 

70 

71 

72 
71 

74 

75 

76 

77 
7  H 
7° 
80 
81 
R2 
HI 
H4 

85 

86 

87 

88 
R9 
•10 
91 
9? 
91 
94 
96 
96 
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97 

9H 

99 

25 

26 
27 

O 

1 

2 

3 

4 

5 

6 

7 

8 
9 


0  ? 
U  K 
1  k 


o  Z 
0  R 

3  7  0  Z 


in  <?6 


10 

(II) 


28 

29 

30 


997.99999 


IV.  AIRCRAFT  RECOVERY  TIME  DISTRIBUTION 


The  Information  of  most  general  interest  is  related  to  the  re¬ 
covery  of  rhe  entire  aircraft  (as  opposed  to  system  and  subsystem 
recovery).  Figure  15  depicts  one  of  the  recovery  curves  that  has  been 
developed. 

Note  that  the  two  halves  of  the  histogram  are  identical:  each 
cell  entry  represents  a  sortie.  The  left  half  shows  the  touchdown 
time;  the  corresponding  right  half  shows  the  type  of  sortie,  but  is 
le  ,i  blank  Decause  PLANET  does  not  distinguish  between  sortie  types. 
Provisions  are  available  if  the  user  should  decide  to  add  this  feature 
later.  Below  this,  the  "HOURS"  and  "P  ■"  lines  show  the  percentage  of 
aircraft  recovered  at  the  hour  indicated  (in  this  case,  93  percent  are 
recovered  2  hours  after  touchdown). 

The  next  line  contains  a  number  of  statistical  computations  for 
facilitating  analysis.  Of  these,  two  are  particularly  interesting. 

"AVG  *  1.18"  shows  that  average  recovery  time  (for  unscheduled  main¬ 
tenance)  was  just  over  1  hour.  "TOTAL  ■  84.72"  shows  that  approximately 
85  hours  of  Operationally  Ready  (OR)  time  were  lost  in  recover ng  air¬ 
craft  from  the  effects  of  the  sorties. 

A  fighter  group  is  somewhat  more  fortunate  than  a  bomber  wing  in 
that  many  fighter  touchdowns  require  no  unscheduled  maintenance.  This 
is  reflected  in  the  next  line,  showing  that  although  227  sorties  were 
flown,  155  required  no  unscheduled  maintenance,  for  a  breakrate  of 
.317.  The  following  line  shows  the  conventional  data,  except  the 
"SATUT  IN  INDEX,"  which  is  obtained  by  dividing  total  -pan-hours  by 
total  elapsed  time.  This  yields  the  average  number  cf  men  on  the 
aircraft  for  unscheduled  maintenance  during  recovery. 

The  final  line  is  a  precaution  that  all  data  may  not  be  graphed. 

PRO (31AM  DESCRIPTION 

This  program  is  written  in  standard  FORTRAN  IV  language. 

Input  is  from  card  and  tape.  The  highest  tail  number  to  be  read 
from  tape  is  read  from  a  card  as  a  five-digit  integer.  The  program 


166- 


reads  Che  AIRCRAFT  RECOVERY  TAPE  end  accumulates  the  Recovery  Time 
Distributions  to  be  printed. 

An  Array  H  contains  the  histogram  of  time  versus  frequency,  and 
an  array  HO  contains  a  count  of  frequency  at  each  time.  When  the  last 
tail  number  desired  has  been  processed,  the  histogram  is  printed. 


ENTIRE  AIR-CRAFT  RECOVERY  TINE  DISTRIBUTIONS 


Fig.  15  —  Aircraft  recovery  distribution  —  an  example 
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4IBFTC  M 

01 MINS I ON  HI  40, 50 1 « NO ( 50) 

DATA  BCAST/lH*/ 

OATA  BLANK/ IH  / 

REMIND  • 

REAO  15*90001  NAXT 
00  100  J-1,50 
N0< J)-0 
00  >00  1-1,40 
100  HI  1,J)-8LANK 
NSORT-O 
NOFIX-O 
NHRT-0 
NGRf-0 
NSUM-0 
NSO-O 

MIN-999999 
MAX— 94999 

150  REAO  1 1*9100)  IOAV, I HR , INN. JOAV, JHR, JMN* I  SC, I TN,MHR, JO* IET, 1 0,NC 
IF  IJ0.NE.999)  GO  TO  250 
200  IF  IITN.CE.MAXT)  GO  TO  500 
GO  TO  ISO 

250  IF  INC.NE.2I  GO  TO  150 
NSORT-NSORT-1 
MAINT-0 
MAIN-0 
I  ST-999999 

500  REAO  IC*9100)  IOAV, IHR.IMN* JOAY, JHR* JMN, ISC, ITN.MHR, JO* IET, 10, NC 
IF  IJ0.EG.999)  CO  TO  515 
IF  INC.NE.O)  GO  TO  350 
MAIN-1 

IST1-IN*»40*I IHR*24»IDAYt 
JN01-JNM*40«I JHR«24*J0AV) 

IF  IIG.ffQ.2IB0)  GO  TO  325 
IF  IIO.ffQ.29001  GO  TO  525 
IF  1I0.E0.2S00)  GO  TO  325 
IST-JN01 
GO  TO  500 

525  IF  INAINT.EO.O)  JND-JN01 
MAINT-1 

IF  IISTI.LE.ISTI  IST-IST1 
IF  IJN01.GC.2N0t  JN0-JN01 
NHRT-NHRTtMHR 
GO  TO  500 

550  IF  IISC.NC.2I  GO  TO  500 
IF  INAIN.CQ.OI  GO  TO  500 
5T5  IF  INAINT.NC.OI  GO  TO  400 
NOFIM-NOf 11*1 
GO  TO  4TB 
400  tRfC-JWHIST 

IF  ININ.GT.IBfCI  NIN-IRCC 
IF  1NBI.LT. IRfC)  MAX- I BBC 
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N$UM*NSUN*IREC 
N$D*NSD4 I REC* ! REC 
IF  ( IREC.IE.1440)  GO  TO  450 
NGAT-NGATM 
GO  TO  475 
450  J«24lREC/30 
I*N0(J)*1 
IF  II.GT.40)  1*40 
NO(J)-I 
H( I * J)*BCAST 

475  IF  (J0.EQ.999)  GO  TO  200 
GO  TO  150 
500  CONTINUE 

N-NSORT-NOFIX 

XN-N 


XSORT-NSORT 

XOA-XN/XSORT 

XSUN-NSUN 

XSUN-XSUN/60. 

XAVG-XSUM/XN 

XSO-NSD 

XS0«XS0/()4G0.*XN|-XAVG*X4VG 

XM!N*N1N 

XMAX-NAX 


XH(N*XNlN/40. 

XMAX*XMAX/40. 

XNHR-NMRT 

XMHR-XMHR/10. 

XSI*XNMR/X$UM 

XAT-XSUM/XSORT 

NOS- NO  U) 


00  550  J*l,49 
N0( JI-IOOANOS/N 
NO$*NOS#NOU*l) 
550  CONTINUE 


ll«<H(llti)«J-lf50)»Il 


NOITE  (4*95001 
NOITE  (4*9510) 

00  400  1*1*40 
11*41-1 

KOITt  (4*95201 
400  CONTINUE 

12!!!  f4*wgl  (I*I*t,*4,2),(  1,1*2,24,2) 

NOITE  (4*9540)  (N0( J) , J«5*50*4) 

12!!!  !!*!!!!•  "**w«*>uvg,xnin,xn4x,xso 
12!!!  MOOT.NOFU.XOR 

NOITE  (4*95701  .NMO*XS|*XAT 
NOITE  (4*95001  HOOT 
OCMINO  0 

STO) 

9000  FOONAT  (|S) 

•«aa  m2!!  !!2!*!i***,^,***,w*^,lw*i4,5<*2iJ*ix,i5*ix, id 

9500  FORMAT  ( IM1*ISX«44MENTIAE  AIR-CRAFT  RECOVERY  TINE  01 STR! OUT  IONS) 


*510  FORMAT  <1H0,20X, 16HT0UCH-D0WN  TIMES, SOX, 11HS0RTIE  TYPE) 

*520  FORMAT  «3X, I2,4X.50Al, AX, 121 

*530  FORMAT  (lH0,SMM0UAS,3X,IH4tI214,SX,5HH0URS,3X,lH*,12l4) 

9540  FORMAT  IIX,3HP  »,6X,12I4) 

*550  FORMAT  (IH0,3HN  » , 14, 3X , 12MT0TAL  TIME  », F 10.2, 3X .9HAVERAGE  «,F8.2, 
4  3X,5HM|N.*,F8.2,3X,5MMAX."«F8.2«3X, 1 1HST0.  OEV.  «,F8.2) 

*560  FORMAT  I1X,13HT0TAL  SORTIES, 15, 3X, 15, IX, 

4  28HS0RTIES  REQU1RE0  NO  FIX  TIME«3X,12HBREAK  RATE  «,F5.3I 

*510  FORMAT  ltX,I7HT0TAL  MAN  HOURS  •,F8.1, 

4  3X, 18HSATURAT10N  INOEX  -,F5.1, 

4  3X.23HAVE  T/A  I  ALL  SORTIES)  »,F5.1I 

9580  FORMAT  <IH0,I4,30H  ITEM(S)  GREATER  THAN  24  HOURS) 

ENO 

8ENTRY 

20 

8I8SVS  EN0J08  TOTAL  NUMBER  OF  CAROS  IN  YOUR  INPUT  DECK 
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V.  SYSTEM  RECOVERY 

The  retrieval  of  the  aircraft  ayatea  (two-digit)  and  aubayatem 
(three-digit)  data  aervea  several  purpoaca:  It  enablea  the  monitoring 
of  break  and  recovery  ratea;  It  provide*  a  aet  of  job  atandarda  for 
unacheduled  aalntenance;  and  It  heipa  identify  aircraft  havii  6  ayatema 
serloualy  aberrant  from  the  fleet  norm. 

The  two-  and  three-digit  recovery  program  generally  makea  a  more 
aatlafactory  job  atandard  for  unacheduled  maintenance  than  doea  the  con¬ 
ventional  five-digit  method  of  determining  atandarda.  The  reaaon  la  that 
to  maintenance  and  control  peraonnel,  the  "job"  conaiata  of  the  entire 
action  of  clearing  a  complaint.  The  two-  and  three-digit  recovery  pro¬ 
gram  producea  the  aummary  of  the  actlona  to  clear  the  complainta. 

All  tntriea  In  Fig.  i£  ahow  the  aircraft  aerial  numbera .  The  ordi¬ 
nate  la  a  coluan  entry  count.  The  P  “  line  ahowa  the  percentage  of  air¬ 
craft  recovery  by  the  correapondlng  time  in  the  houra  row.  The  average 
recovery  follows  MEAN  -  and  thia  la  followed  by  conventional  statistical 
information.  Total  tlam  ahowa  total  OR  time  lost  to  thia  syatem.  SATU¬ 
RATION  INDEX  ia  the  average  number  of  men  working  on  syatem  recovery. 

PROGRAM  DESCRIPTION 

Thia  program  ia  written  in  atandard  FORTRAN  IV  language.  Note 
the  necessary  changes  indicated  in  the  program  listing  to  allow  the 
program  to  run  on  IRM  Syatem  360  computers. 

Input  ia  from  card  and  tape.  The  highest  tall  number  to  be  read 
from  tape  and  the  highest  unit  number  to  be  printed  are  read  from  a  card 
as  five-digit  integers.  The  program  reads  the  AIRCRAFT  RECOVERY  TAPS  as 
many  times  as  necessary  to  present  a  chart  for  each  unit  number.  The 
information  for  as  many  ae  twenty  units  la  accumulated  each  time  the 
tape  ia  reed  through. 

An  stray  ITN  contains  the  list  of  tall  numbera  versus  time  of 

a 

recovery  for  as  many  as  twenty  units,  and  an  array  NO  contains  a  count 
of  number  of  aircraft  at  each  time  for  each  type  of  failure.  When  the 
last  tell  number  dealred  has  been  processed,  the  charts  for  each  type 
of  failure  that  recurred  ia  the  current  aet  of  twenty  uhlts  ere  printed 
end  the  procedure  la  ra tuned  for  the  next  set  of  twenty  unite. 


snttM  »cco«»y 


tlftf'C  SR 

DIMENSION  ITBI20t*NAI20)  *MHRT  (20) *M1M(20)  , MAX (20)  •NSUMI20)  *NSC(20) 
DIMENSION  1  TNI  50*20*20 ) «NQ1 20 1  20 ) 

DIMENSION  NT1I10)*NT2(1Q)*NT3(10)'NT4(10) 

DATA  NLANK/IH  / 

DATA  IZ1/4H  0/ 

CATA  1 22/AH  00/ 

DATA  I l 3/AH  000/ 

DATA  NT  II I )  /<*HOOOO/*NT  112)  /4H00C 1/  » NT  1  (  3 }  /  4H0002/  *  NT  1 1 4)  /4H0003/ 
OATA  NTlt51/4H0004/*NTt(6)/4HOOOS/*NTH7)/4H0006/*NTl(S)/4H0007/ 
DATA  NT1 1 9) /4H0008/.NT1 1 101 /4H0009/ 

OATA  NT2I1I/4HOCOO/®NT2<2)/4H0010/.NT2I3)/4H0020/,NT214)/4H0030/ 
OATA  NT2I 5 ) /4H0040/.NT2I 6 I/4H0050/ *NT2( 7) /4H0060/ *NT2 { 8 ) /4M0070/ 
OATA  NT2I9)/4H0G80/*NT2( 10I/4H0090/ 

DATA  NT 31 1 ) /4H0000/*NT3( 2 1/4H0100/ *NT3( 3) /4KQ200/ *NT  3 ( 4) /4H0300/ 
DATA  HT31 5) /4H0490/*NT3( 61/4H0500/ *NT3( 7)/4H0600/*N  f 3 1 8) /4H0700/ 
OATA  NT3!9)/4H0800/*NT3( 101 /4H0900/ 

OATA  NT41 I ) /4H0000/*NT4( 2 I/4H1000/ *NT4l 3) /4H2000/»NT4(4) /4H3000/ 
OATA  NV4I SI /4H4COO/*NT4 ( 6 ) /4H5000/ *NT4 ( 7 ) /4H6000/ «NT4 ( 8 ) /4H7000/ 
OATA  NT4|9)/4H8000/*NT4( 10I/4H9000/ 

C  DELETE  EVERYTHING  BETWEEN  THE  ASTERISKS  IF  THE  PROGRAM  IS  TO  BE  RUN 
C  QN  A  MACHINE  THAT  ALLOWS  FEWER  THAN  FIVE  HOLLERITH  CHARACTERS/W3R0. 

C  THESE  CAROS  SUOULO  BE  REMOVED  TO  RUN  ON  ANY  IBM  SYSTEM  360  COMPUTER. 

OATA  I Z0/5H0000  / 

00  1  1-1*10 
NT1I I 1-NTll If-IZO 
NT2ttl-NT2(I|-IZ0 
NT3III-NT3I II-IZO 
NT4III-NT4IH-IZ0 
1  CONTINUE 

MIT-20 

READ  15*90001  MAXT.MAXU 
NIT-NIT 
50  REWINO  8 

nit-niumit 

IF  INIT.GT.MAXU)  STOP 
OC  100  Ml, MIT 
ITBIK 1*0 
MHRTIKI-O 
NSUM1KI-0 
NSOIKI-O 
NAIKI-0 
MINIKI-999999 
MAX  IK  I —99999 
00  100  J-l*20 
M0(J,KI-0 
00  100  1-1*50 
100  I TNI  I  * J*K)-NL ANK 
NSORT-O 
Norix-o 
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N6AT*C 

150  READ  (8,9100)  IDAY, IHR, INN, JDAV, JHA, JAN, I  SC. 1 T4, 1 T3. I T2. I T1 , 

•  AHA , NUF , JO,IET,IO*MC 
ITA®ITlMOMIT2MO*(lT3*lO*IT4ll 

AAINT-C 

NSOA-O 

IF  IJ0.NE.999)  60  TO  250 
200  IF  f ITA.GE.MAXT)  60  TO  500 
GO  TO  150 

250  IF  INC.EQ.O)  GO  TO  310 
IF  (NC.NE.2)  GO  TO  150 
NS0RT»NS0RT*1 
NSOR'l 
NA|N»0 

300  REAO  (8,9100)  (DAY, IHR , IMN, JDAV, JHR , JNN, I  SC, I T4. I T3,  I T2, 1 T 1 , 

•  NHR«NUF , JD«1ET,!D,NC 
JF  (JO. EC. 999)  GO  TO  375 

IF  INC.NE.O)  GO  TO  350 
310  CONTINUE 
NA!N«1 

IF  (ID.EQ.2150)  GO  TO  325 
IF  (ID.EQ. 25001  GO  TO  325 
IF  ( ID.EQ. 2300)  GO  TO  325 
IF  f  30. FQ. 1 10 )  GO  TO  325 
GO  TO  340 
325  NAINT-1 
K«NUF-NIT 

IF  (K.IE.O)  GO  TO  340 
IF  (K.GT.HI?)  GO  TO  340 

ITN0*NT1(ITIM)*NT2(  IT2H)>NT3UT3*l)*NT4(  IT4»1) 

IF  UTA.GE.10)  GO  TO  330 

ITN0*IZ1*!TN0 

GO  TO  335 

330  IF  1 1 TA.GE. 100)  GO  TO  332 
ITN0-II2-ITN0 
GO  TO  335 

332  IF  ( ITA.GE. 10001  GO  TO  335 
ITNO»I23-ITNO 

335  CONTINUE 
NA(KI-NA(K)*1 

NHRT (K) *NHRT ( K )*NHR 
IST1«1MN460*I  IHRU44IDAV) 

JN01*JNN*60*I JHR+24* JDAV ) 

IREC-JNDl-ISTl 

IF  (MINIR).GT.IREC)  NIN(K)«IREC 
IF  (NAXIK ) .IT. IREC )  NAX(K)*IREC 
NSUNIK ) *NSUNI XI ♦ I REC 
NSD(K)aN$D(K) ♦IREC*IREC 
J-IET/30 

336  J*JM 

IF  O.GT.2U)  J*20 
I*NC( J»K )♦ 1 
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IF  (I.IE.50)  60  TO  339 
IF  U.LT.20)  GC  TO  338 

339  CONTINUE 
NO!J*ft)«l 

!TN{ I* J*K)*iTNO 
lT8(k)»IT6<K)*l 

340  IF  (NSOR.EQ.O)  GO  TO  150 
GO  TO  300 

350  IF  ( I SC.NE.2)  GO  TO  300 
IF  (NAIN.EQ.O)  GO  TO  300 
375  IF  (NAINT.EQ.O)  NOFIX»NOFlXM 
IF  IJ0.EQ.999)  GO  TO  2C0 
GO  TO  150 
500  CONTINUE 

N-NSORT— NOF 1 X 
XN-N 

XSORT-NSQRT 
XBR-XN/XSORT 
00  TOO  Ml, NIT 
NUT-NIT** 

IF  (ITB(K).EQ.O)  GO  TO  700 

N«NA(KI 

XN-N 

XSUN-NSUMtk) 

XSUN-XSUN/60. 

XAVG-XSUN/XN 

XSO-NSOU) 

XSO»XSD/( 3600.*XN)-XAVG*XAVG 
XWIN-MIN(K) 

NNAX-MAXIK I 
XNAX-NMAX 

(F  INMAX.GT.60)  NNAX-60 

NNAX1-NWAX/3 

XNIN-XNIN/60. 

XMAX-XNAX/60. 

XMHR-NMRT(K) 

XNHR-XHMR/10. 

XSI-XWHR/XSUM 
XA T-X SUN/ X SORT 
N0S-N0(1*K) 

00  350  J-1,20 
NO! J»RI-100*N0S/N 
NQS-NOS*NO(J*1*R) 

550  CONTINUE 

WRITE  (6*9500)  NUT 
00  600  1-1*50 
I 1-31-1 

WRITE  (6*9520)  !l*(ITN(ll.J*K),J-t*20) 
600  CONTINUE 

WRITE  (6*9530)  (IvI-3*57*3) 

WRITE  (6*9340)  (N0( J*K)*J*1*20) 

WRITE  (6*9550)  N*XSUM*XAVG«XMIN»XNAX*XSO 


WRITE  16*9560)  NS0RT,N0FIX*X6R 
WRITE  (6*9570)  XMMR,XSI,XAT 
700  CONTINUE 
GO  TO  50 

9000  FORMAT  (215) 

9100  FORMAT  1 8X, 14*212* !4* 312* 8X,4I l* 19X* 14* 15, 21 3, IX, 1 5* IX*  1 1 ) 

9500  FORMAT  ( lHi*35X*lSHSYSTEM  RECOVERY, //»35X, 1 IHUNI T  NUMBER, 15) 

9420  FORMAT  (3X, I2*4X*20(1X*A4) ) 

9530  FGRMAT  (|HO,SHHOURS  LT, I9( IX* 14) ,8H  GT  57) 

9540  FORMAT  (IX.3HP  « , 5X, 19 15 , 3X , I  5 ) 

9550  FORMAT  (1H0*3HN  **I4«3X,12H TOTAL  TIME  *,F10.2,3X,9HAVERAGE  «*F8.2, 

*  3X*5HMIN.«*F8.2*3X,5HMAX.«,F8.2»3X,UHST0.  OEV.  *,F8.2) 

9560  FORMAT  (IX*13HT0TAL  S0RTIES*I5*3X,I5* IX, 

*  28HSORTIES  REQUIRED  NO  FIX  T IME.3X* I2HBREAK  RATE  *,F5.3) 
9570  FORMAT  <IX*17HT0TAL  MAN  HOURS  >,F8.1, 

*  3X, l CH SATURATION  INDEX  «,F5.1, 

*  3X.27HAVE  T/A  (ALL  MAINTENANCE)  »,F5.l) 

END 

SENTRY 

20  15 

tIBSYS  EN'JJOQ  TOTAL  NUMBER  OF  CARDS  IN  YOUR  INPUT  DECK 


l 

t 


i 


■MMMPBIRlOt 
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Program  6 


WORK  CENTER  RECOVERY 


VI.  WORK  CENTER  RECOVERY 


THE  RECOVERY  PROGRAM 

The  work-center  data  the  recovery  program  produces  are:  the 
touchdown  time,  the  time  the  work  center  began  the  first  job  and 
ended  the  last  job,  the  .umber  of  people  at  work  in  each  ^-hour  trial 
period,  as  well  as  the  conventional  Am  66-i  data.  In  plotting  the 
data,  touchdown  time  is  set  to  zero,  and  the  data  are  plotted  from 
this  point  in  time.  The  program  computes  not  only  the  percentage  of 
aircraft  still  not  recovered  each  ^-hour  period,  but  also  the  percent¬ 
age  of  aircraft  being  worked  on  durn  g  each  period. 

Figure  17  is  a  plot  of  one  month's  data.  We  see  that  227  sorties 
were  flown,  resulting  in  10  requests  for  Work  Center  number  1.  The 
matrix  shows  how  these  10  demands  were  met:  one  hour  after  touchdown 
there  were  10  times  when  a  3-man  team  was  required,  etc.  By  following 
along  the  two  lines  PCB  and  PBF.  we  can  compare  the  percentage  of 
aircraft  yet  to  be  recovered  (PCB)  with  those  actually  being  worked 
on  (PBF)  at  each  point  in  time. 

Among  the  facts  revealed  are  that,  although  80  percent  of  the 
aircraft  are  recovered  within  1  hour  after  touchdown,  by  1^  hours, 

30  percent  are  still  being  worked  on.  Not*,  too,  that  the  work  center 
may  not  work  on  100  percent  of  the  aircraft  at  all  times. 

It  is  worthwhile  to  point  out  that  a  number  of  analyses  become 
possible  with  work-center  data  of  the  type  described.  Because  touchdown 
times  are  on  each  card,  we  can  compare  periods  of  light  and  exceedingly 
heavy  loads,  thus  determining  the  impact  of  load  on  the  work  center. 

We  can  isolate  special  exercises  for  simllsr  compsrison.  We  can 
determine  tha  effects  of  time  of  day,  or  day  of  week.  Further,  we 
can  isolate  specific  sorties  in  which  the  sirersft  wss  not  touched  for, 
ssy,  more  then  six  hours,  end  determine  why  by  referring  to  the 
Aircrsft  Recovery  time  distributions  (Program  4)  end  the  System 
Recovery  Program  (Program  5).  Thus  we  begin  to  get  at  the  heart  of 
thoee  factors  (manning,  scheduling,  end  performance)  that  effect  the 
operationally  ready  rate*. 


UNIT  1  FlIGMT-LIME  DCNMtOS  FROM  TIME  OF  TOUCH- DOMM  (TCKO  HOURS) 
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FLIGHT  PROGRAM  DESCRIPTION 

This  program  is  written  in  standard  FORTRAN  IV  language.  Note 
the  necessary  changes  indicated  in  the  program  listing  to  allow  the 
program  to  run  on  IBM  System  360  computers. 

Input  is  from  card  and  tape.  The  highest  tail  number  to  be  read 
from  tape  and  the  highest  unit  number  to  be  printed  ore  read  from  a 
card  as  five-digit  integers.  The  program  reads  the  AIRCRAFT  RECOVERY 
TAPE  as  many  times  as  necessary  to  present  a  chart  for  each  unit  number. 
The  information  for  as  many  as  twenty  units  is  accumulated  each  time 
the  tape  is  read  through. 

An  array  ITN  contains  the  counts  of  crew  size  versus  response  time 
for  as  many  as  twenty  units ,  array  2MN  contains  the  mean  crew  size 
versus  time  for  each  unit,  and  arrays  NCB  and  NFX  contain  counts  of 
uisabled  aircraft  and  aircraft  being  fixed  at  each  time  for  each  unit. 
When  the  last  tail  number  desired  has  been  processed,  the  charts  for 
each  type  ot  failure  that  occurred  in  the  current  set  of  twenty  units 
are  printed  and  the  procedure  is  resumed  for  the  next  set  of  twenty 
units . 
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•IOFIC  FO 

DIMENSION  I TN (15*23* 20)  »NCi4(  29*20)*NFX(2S*20) 

DIMENSION  INOI 29*20)  *  ZMNI  25*20  tNREQI  201 *  MHRT (201 
DIMENSION  NTtliO)»NT2(10)»NT3(lQ)*NT4(iO) 

DATA  NLANK/lH  / 

DATA  I21/4H  0/ 

OATA  IZ2/4H  00/ 

OATA  IZ3/4H  000/ 

OATA  NT  Ml  I /4H0000/* NT  1(2) /4M000I/ ,NT 1(3) /4H0002/ .NT 1 1 4) /4H0003/ 
OATA  NT1I 5I/4H0004/*NT 1 ( 6) /4H0GQ9/*NT l ( T) /4H0006/ »NTI ( 8) /4H0007/ 
OATA  KT I i 9) /4M0008/, NT  1(10) /4H0009/ 

OATA  MT2I 1)/4H0000/,NT2(2)/4H0C1Q/,NT2(3)/4H0020/,NT2(4)/4M0030/ 
OATA  NT2( 5 ) /4H0040/*NT2 (6 ) /4H0050/ »NT2 ( 7) /4M0060/ »NT2 ( 8 ) /4H0070/ 
DATA  NT2I 9)/4H0080/«NT2( 10) /4H0090/ 

OATA  NT3( 1)/4H0090/.NT3(2)/4H0100/,NT3(3)/4H0200/»NT3(4)/4H0300/ 
OATA  NT3( 9)/4HQ400/*NT  3(6 ) /4H0500/ »NT3( 7) /4M0600/ »NT3( 8) /4H0700/ 
OATA  NT3<9t/4H0600/*NT3(10)/4H0900/ 

OATA  NT4( 1 ) /4H0000/*NT4( 2 )/4H1000/*NT4( 3) /4H2000/ » NT4( 4) /4H3000/ 
OATA  NT4(9I/4H4000/*NT4(6)/4H5000/»NT4( 7) /4H6000/ *NT4( 8)/4H7000/ 
OATA  NT4|9)/4H8000/*NT4( 10I/4H9000/ 

C  DELETE  EVERYTHING  BETWEEN  THE  ASTERISKS  IF  THE  PROGRAM  IS  TO  BE  RUN 
C  ON  A  MACHINE  THAT  ALLOWS  FEWER  THAN  FIVE  HOLLERITH  CHARACTERS/WORD. 

C  THESE  CAROS  SHOULO  BE  REMOVED  TO  RUN  ON  ANY  IBM  SYSTEM  360  COMPUTER. 

(,*»•*« 

OATA  I Z0/5H0000  / 

00  1  1-1*10 
NTH  n»NTl(  II-IZO 
NT2I I )«NT2( I l-IZO 
NT3I I )»NT3( II-IZC 
NT4(I)-NT4( ll-IZO 
1  CONTINUE 

MIT«20 

READ  19*9000)  MAXT.MAXU 
NIT--NIT 
90  REMIND  8 
NIT«NIT*M|T 
IF  INIT.GT.MAXU)  STOP 
00  100  K-l*NtT 
MHRT(R)«0 
NREQIKI-0 
00  100  J-1.29 
!NOIJ*K)«0.0 
IMN(J*KI-0.0 
NCOUtRH 
NFX(J,K)-0 
00  100  1*1*19 
100  ITNt I* J»R)-0 
NSOST-O 

190  RIAO  (8*9100)  IOAV*IHR*IMN»JOAV*JHR*JMN*I$C*ITA* 

•  MMR.NUF* JO* IET * IO*NC 

IF  (J0.NC.999)  GO  TO  290 
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200 

IF 

I ITA.GE.ftAXT) 

GC 

TO  500 

GO 

TO  150 

250 

IF 

(NC.NE.2)  GO 

TO 

150 

NSOIIT-NSORm 

WAIN-0 

I  TO- JMN*60*( JHA  *2** JDA Y ) 

300  READ  (8*9100)  10AV, IHft, INN, JDAY, JHR.JMN, ISC, I TA, 
•  NHAtNUF* JO* IET»ID«NC 

IF  (JD. EG. 9991  GC  10  200 
IF  INC. HE. 01  GO  TO  350 
310  CONTINUE 
MAIN-1 

IF  1 10. EQ. 2150)  GO  TO  325 
IF  1 10. EO. 2500)  GO  TO  325 
IF  <10. EQ. 2300)  GO  TO  325 
IF  ( 10. EO. 110)  GO  TO  325 
GO  TO  300 
325  K-NUF-NIT 

IF  IR.LE.O)  GO  TO  300 
IF  U.GT.ftlT)  GO  TO  300 
NREQ I K ) -NftEQI  K )  ♦  l 
MHftT<K)-ftHRTU)*ftHft 
I$Tl-IMN»AO*( IHIU2AM0AV) 

JNOl- JMN*60*< JMA*24*J0AY) 

'RfC-ISTl-ITO 
4- IAEC/30M 
J1- J^iET/5 
IF  (J.GT.25)  >25 
IF  ( J1.GT.25)  J 1-25 
l-ISC 

IF  (1..T.15)  1-15 
1TN( I.J,*)-ITN( I, J,K)M 
ZNO(  J,*WNO<  J,K)»1.0 
11*1 

IftN< J,K)-2NN< J,M)*ZI 
00  330  J2*l«41 
330  ft  81 J2.A )-NC8( J2,K)*l 
00  332  J2-JtJl 
m  i J2tR)-NFXi J2*R  )*1 
332  NOC ( J2 fK)*NOC ( J2»K )- i 
GO  TO  300 

350  IF  ( (SC.NE.2)  GO  TO  300 
IF  IMAIN.EQ.O)  CO  TO  300 
3Z5  IF  <J0.iQ.ff9)  GO  TO  200 
CO  TO  ISO 
500  CONTINUE 

00  700  K-1.N1T 
NUT-NIT ♦* 

XNHR*ft IHftT(K) 

IMHA-XNHA/10. 

N-NACQ(A) 

IF  IN.EQ.O)  GO  TO  TOO 


-184- 


ZN-N 

zs-nsoat 

ZP-ZN/ZS 
DO  910  J-1,25 
ZNNI J,K)-ZNN<  J.XI/ZNOI  J,XI 
NCBI J,*)-1006NC8( J,K)/N 
NFX| J,K)«1Q0*NFX< J,X)/N 
00  910  I* 1 « 19 

I- lTN(l.J,M 
1TN<|,J«K)-NLANK 

IF  (L.EQ.OI  CO  TO  510 
L4-L/I0 
L 9-1-10*14 

!TNl-NT)(L3UI«NT4(L4*l) 

IF  IL.LT. 10)  I  TNI- I Z  3- I  TNI 
ITNU.J.M-ITNl 
910  CONTINUE 

WAITE  I6«9900)  NUT 

WAITE  (6t9510)  « NT 3t 1 > ,1-2,10) 

00  600  1-1,19 

I I- 16- 1 

WAITE  (6,9520)  I l , ( I TN( l 1 , J.X ) , J- l ,25) 

600  CONTINUE 

WAITE  (6(9535)  ( 2MN( J,A ) , J« 1, 25,2 ) 

WAITE  16(9550)  (NCBI J,K) ,J*1 ,25) 

WAITE  (6,9560)  (NFX(J«K)« J-1,25) 

WAITE  (6,9570)  NSOAT 
WAITE  (6,9560)  N 
WAITE  (6,95901  IP 
WAITE  (6,96001  XNMA 
WAITE  (6,96101 
TOO  CONTINUE 
GO  Tw  50 

9000  FOANAT  1215) 

9100  FOANAT  <6X, 14,212 , 14, 3 1 2, 8X, 1 4, 19X, 14, 15,21 3, l X, 1 5, IX, II) 

9500  FOANAT  ( 1H1, 10X,4HUN I T , |4 ,2X, 29HFL IGHT-L INE  OENANOS  FMON  TINE, 

•  1X.26HOF  TOUCH-OOWN  I TO-O  HOUAS)) 

9510  FOANAT  I 1H0,9X,2H00,9( 6X, A2I ,6X,2H10,6X,2H1 1 ,6X, 3H1 2« I 
9520  FOANAT  ( 1H0.2I, 12, 3X,25( 2X.A2 ) ) 

95)0  FOKNAT  UNO, TX, 251 41 

95)5  FOANAT  UH0,4MNEAN,)X,  13IF4.I  ,4X) ) 

9950  FOANAT  I 1N0,4HFC6-, )X, 25( IX, I  3 ) ) 

9560  FOANAT  I ll,4HFBF- , )X, 29( IX, I  3) ) 

9510  FOANAT  UNO, 16,  IX,  13HS0ATIES  FLOWN) 

9560  FOANAT  (1X,|6,1X, 17HAE QUESTS  ON  UNITS) 

9590  FOANAT  (4X,)tHTHE  FAOAAII LI  TV  OF  BEING  AE3UESTE0  IS  ,F4.2) 

9600  FOANAT  (4X,17NT0lAL  NAN-HOUAS  -,F6.1) 

9610  FOANAT  |4X,42H(FCS-FEACENT  OF  CAIFFLEO  AIAOS  STILL  SICK., 

•  2I,)4HF»F«FCACENT  CF  AIAOS  BEING  FIXEO.l) 

ENO 

IENTAT 

20  19  )0 


6IBSVS 


ENOJOA 
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VII.  FAILURE  LIST 


The  Failure  List  program  provides  a  visual  history  cf  break-rate 
information.  The  break-rates  are  inferred  from  unscheduled  maintenance 
performed  (Fig.  18). 

The  unscheduled  maintenance  is  produced  by  having  the  recovery 
program  search  each  sortie  for  unscheduled  maintenance  (by  two-  or 
selected  three-digit  systems,  or  both).  Each  time  a  fix  is  encountered, 
it  is  recorded  under  the  appropriate  system  number. 


FAILURE  LIST 


DAY 

UNIT 

TH0 

0.34 

3 

• 

0. 34 

4 

8 

0.34 

4 

1 

0.3S 

3 

3 

0.42 

3 

10 

0.42 

1 

10 

0.43 

5 

13 

0.35 

3 

5 

0.35 

4 

3 

0.43 

2 

4 

0.43 

1 

JO 

0.45 

5 

.4 

0.45 

1 

5 

1.34 

3 

4 

1.40 

3 

a 

1.43 

2 

9 

1.57 

4 

a 

1.40 

1 

10 

2.43 

2 

a 

2.43 

2 

10 

3.43 

2 

9 

3.31 

3 

a 

3.45 

2 

10 

3.45 

2 

a 

4.43 

2 

10 

4.55 

3 

a 

4.00 

4 

3 

7.00 

2 

2 

7.43 

5 

12 

7.35 

4 

8 

1.53 

3 

8 

•  •  33 

4 

a 

*.37 

3 

a 

*.39 

3 

a 

10.34 

3 

2 

10.41 

1 

a 

10.45 

2 

a 

11.34 

1 

a 

11.4! 

5 

12 

11.35 

3 

a 

13.00 

3 

3 

14.34 

4 

2 

14.34 

3 

10 

14. 31 

4 

a 

14.51 

3 

10 

14.3* 

3 

a 

13.43 

1 

10 

13.43 

2 

* 

17.53 

1 

10 

13.43 

2 

9 

Fig.  18 
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PROGRAM  DESCRIPTION 

This  program  is  written  in  standard  FORTRAN  IV  language. 

Input  is  from  card  and  tape.  The  times  to  start  and  stop  printing, 
the  number  of  iases,  and  the  number  of  different  tail  numbers  to  be 
listed  are  read  from  a  card.  The  times  to  start  and  stop  contain  four 
characters  each,  including  decimal  point;  the  number  of  tail  numbers 
(less  than  1000)  and  *he  number  of  bases  (less  than  10)  are  each  read 
as  four-digit  Integers.  If  the  number  of  bases  is  zero  or  blank,  all 
bases  will  be  listed;  otherwise,  a  card  containing  the  specific  base 
numbers  to  be  listed  is  read,  with  each  base  number  entered  as  a  three- 
digit  Integer.  If  the  number  of  specific  tail  numbers  to  be  listed 
is  zero  or  blank,  all  tail  numbers  will  be  listed;  otherwise,  cards 
each  containing  24  three-digit  Integer  numbers  identifying  the  specific 
tail  numbers  are  read.  The  program  then  reads  the  original  PIANET 
ABC  tape  and  prints  the  time,  unit,  and  tail  number  for  all  failures 
concerning  the  specified  bases  and  tail  numbers. 


188 


tIBFTC  Fl 

DIMENSION  IBS! 10) *  I  TNI  1000) • I ST(  1000) • I STN ( 1000) 

NT*0 

NP«*0 


100 


200 

300 


350 

375 

400 

425 

450 


475 

500 

600 

650 

700 


•00 

*000 

9010 

*500 

*510 


REWIND  9 

READ  ( 5,9000!  TO, TEND  * NBA $E» NT All 
IF  (TEND. EQ. 0.01  TEND»1.0E10 
IF  (NBASE.EQ.O)  GO  TO  200 
READ  (5,9010)  ( IBS! 1 ) , I *1 ,NBASE ) 

IF  (NTAIl.EQ.O)  GO  TO  300 
REAO  (5,9010)  (ITN(!),l-i,NTAIL> 

REAO  (9)  ll,L2, 13, 14, 15, 16, L7, 18, 19,110, Lll,T 

IF  (12. EQ. 3)  GO  TO  100 

IF  (L2.EQ. 1900)  GO  TO  400 

IF  (L2.EQ.2150)  GO  TO  600 

IF  (12.EQ.2300)  GO  TO  600 

IF  (12.EQ.2500)  GO  TO  600 

IF  Illl.lE.O)  GC  TO  3CC 

00  375  I«1,L11 

REAO  (9)  II 

GO  TO  300 

IF  (NBASE.EQ.O)  GO  TO  450 
00  425  I*1,NBASE 
IF  (I8SID.EQ.L6)  GO  TC  450 
GO  TO  350 

IF  (111. IE. 0)  GO  TO  300 

Lii*m-i 

REAO  (9)  II 

IF  (NTAIL.EQ.O)  GO  TO  500 

00  475  I*1«NTA1L 

IF  1 1  TNI  I ) .EQ. II)  GO  TO  500 

GO  TO  350 

NT*NU1 

I  ST ( NT ) -L 1 0 

ISTN(NT)-) i 

GO  TO  350 

IF  (T.LT.TO)  GO  TO  350 
IF  ( T.GT.TENO)  GO  TO  ICO 
00  650  1*1, NT 

IF  (IST(I).EQ.llO)  GO  TO  700 
GO  TO  350 
11*1 STNI I ) 

MPftsNPft* 1 

IF  (NPR.GT.O)  GO  TO  800 
NPR*50 

WRITE  (6,9500) 

WRITE  (6,9510)  T, 18,11 

GO  TO  350 

FORMAT  (2F4. 0,214) 

FORMAT  (2413/) 

FORMAT  (1H1,6X, 12HFAILURE  LIST,//,4X, 15H0AV 
FORMAT  (3X,F6.2,2(2X,I3)) 


UNIT  TNO) 
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CNO 

*ewTRY 

0.0  0.0  C  40 

” «  «  »  »  ,5  n  S!  ii  if  ii  ii  i,5  it  i I  it  »  « « « *»  ;;  ** « 
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total  number  of  cards  in  your  input  DECK 
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Program  8 

COST /EFFECTIVENESS 
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VIII.  COST/EFFECTIVENESS 

The  Cost/Ef fectiveness  program  reports  the  results  of  dividing  the 
SITE  and  Logistics  costs  by  the  effectiveness.  The  measure  of  effec¬ 
tiveness  is  derived  by  subtracting  the  SITE(s)  downtime  from  the  total 
SITE(s)  time  for  the  simulated  period;  site  time  may  be  initialized  to 
specify  any  time  period,  as  well  as  base,  or  for  the  entire  fleet  of 
weapons . 

INITIALIZATION 

Table  5  lists  the  initialization  requirements.  Thirty-six  arrays 
are  used.  Only  twelve  require  values,  however. 

For  initialization  formats  the  user  may  use  the  example  data 
(which  are  strictly  hypothetical)  contained  with  the  program  listing 
or  refer  to  Part  1,  Section  II  for  the  initialization  instructions, 

OUT  Pin  PROGRAM 

The  input  to  the  program  is  the  tape  generated  by  the  ABC  simulator. 
The  input  tape  consists  of  a  12-variable  label  record  and  is  sometimes 
followed  by  a  10-variable  detail  re  ord. 

Any  change  to  the  personnel,  equipment,  or  spare  part  quantities, 
after  the  initial  assignment,  causes  a  message  to  be  printed.  The 
message  contains  the  quantity  and  type  resource,  the  base,  the  cost, 
and  the  simulated  time. 

PERMANENT  VARIABLES 

EBASE  -  number  of  bases 
SUM  -  site  cost  (by  base) 

PSUM  -  personnel  cost  (by  base) 

FSUM  -  equipment  cost  (by  base) 

SSUM  -  spare  part  cost  (by  base) 

SITE  •  number  of  site  types 
COST  -  cost  per  site  type 
QTY  -  quantity  of  each  site  type 
PTYPE  -  number  of  personnel  types 
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Table  5 


VARIABLE  DESCRIPTI  .<  AND  INITIALIZATION:  COST/EFFECTIVENESS 


Description  of  Variable  to  I*  Initialised 


Number  of  bears  Co  be  enelyced 


Number  of  site  types 
Cost  of  each  site  type 
Quantity  of  each  site  type 
Number  of  personnel  types 
Cost  of  each  personnel  type 


Number  of  equipment  types 
Cost  of  each  equipment  type 


Nimfcer  of  spare  part  types 
Cost  of  each  spare  part  type 


ENDS  I M  or  end  of  report 


Insert  code  “0“  •  Use  statist lcs,  FIXET 
“1”  •  Entire  fleet 
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PCOST  -  cost  per  personnel  type 
PQTY  -  quantity  of  each  personnel  type 
ETYPE  -  number  of  equipment  types 
ECOST  -  cost  per  equipment  type 
EQTY  -  quantity  of  each  equipment  type 
STYPE  -  number  of  spare  part  types 
SCOST  -  cost  per  spare  part  type 
SQTY  -  quantity  of  each  spare  part  type 
FINSH  -  report  time 

SITID  -  first  variable  of  detail  record 
CODE  -  second  variable  of  label  record 
BASE  -  sixth  variable  of  label  record 
VI  -  seventh  variable  of  label  record 
V2  -  eighth  variable  of  label  record 
V3  -  ninth  variable  of  label  record 
ETIME  -  twelfth  variable  of  label  record 
TST  -  total  site  time  by  base 
TTST  -  total  site  time  for  fleet 
NOR  -  total  site  downtime  by  base 
TNOR  -  total  site  downtime  for  fleet 
CEFT  -  cost/effectiveneas  by  base 
TCEFT  -  total  coat /effectiveness  for  fleet 
TSUM  -  total  logistics  cost  for  fleet 

FLEET  •  flag  to  determine  if  statistics  are  by  base  or  for  fleet 
FOLOW  -  flag  to  determine  if  detail  record  follows  label  record 

S£S 

NAME  S£T  USED  FOR  *)RX  ENTITIES 

ONE  SUBSCRIPT 

RANKED  BY  SITE  ID  NUMBER 

OWNER  SIMSCRIPT  SYSTEM 

MEMBER  WORK:  ID  •  site  ID  number 

START  *  downtime  of  site 

STOP  ■  uptime  of  site 

CT100  •  count  of  100  records 

CT200  •  count  of  200  records 


T  MONK  8 


• 

*- 

& 

1 

1  TIME  Of 

SITE 

T 

10 

I 

I 

IEBASE 

E 

I 

T 

STAN? 

2 

f 

2FSET 

1 

I 

T 

STOP 

3 

F 

3LSET 

I 

I 

T 

CT100 

4 

I 

4SUN 

1 

F 

T 

CT200 

9 

I 

9PSUM 

i 

F 

T 

PSET 

A 

1 

AESUM 

1 

P 

T 

SSET 

7 

I 

7SSUM 

i 

F 

8SITE 

E 

1 

9C0ST 

l 

P 

100TY 

2 

I 

UNTYPE  E 
I2PCOST  1 
11PGTY 
14* TYPE 
19ECOST 
IAEQTY 
ITS TYPE 
18SC0ST 
I9SQTY 


20FINSH  0 


'  2ISITIO  0  I 

‘  22COQE  0  I 

21BASE  0  I 

24V I  0  I 

29V2  0  I 

26V3  0  I 

27ETIME  0  P 

2BTST  I  P 

29TTST  0  P 

3  ON  ON  |  P 

3ITNON  0  P 

32CEPT  1  p 

33TCEPT  0  P 

34  T  SUN  0  P 

39FLEET  0  | 

)6f  OLOM  0  | 

IBPTC  NAIM 


MAIN  NOUTINC 
C 

C  PLANET  -  COST/EFFECTIVENESS  PROGRAM 
C  INPUT  -  ASC  8 (MANY  OUTPUT  TAPE 
C 


SET  I 


AIMING  9 
LET  RPLAO  •  0 

I  IP  (POLOM)  EO  (II.  GO  TO  ) 

C  Nf AO  LABEL  if CONG 

I  2  NEAO  (91  II. 12.11. 14. |9.|A.|TtIB. 19. 1 10. I i 1. 1 12 
STONE  12  IN  COOC 
STONE  IA  IN  BASt 
STONE  I?  IN  VI 
STONE  It  IN  V2 
STONE  19  IN  VI 
STONE  III  IN  fOLON 
STONE  112  IN  ETIMf 
GO  TO  9 


•ID  L 
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*EAO  DETAIL  RECORO 

3  J.I4tl5*16*I7,18.F9,F10 

LET  FOLOW  •  0 
GO  TO  2 

5  IF  (ETIME)  GE  (FINSH),  GO  TO  990 
IF  (KFLAGI  EG  (l),  GO  TO  8 
IF  (ETIME)  EQ  10.0),  GO  TO  8 
COMMUTE  INITIAL  LOGISTICS  COSTS 
CALL  L INPUT 
LET  KFLAG  •  | 


TEST  FO*  RECORO  TYPE 


IF  ( COOE ) 
IF  (COOE) 
IF  (COOE) 
IF  (COOE) 
IF  (COOE) 
IF  (COOE) 
IF  I COOE) 
IF  (COOE) 
IF  ( COOE f 
GO  TO  | 


EQ  ( 
EQ  ( 
EQ  ( 
EQ  < 


3), 
10), 
20) , 
10), 


EQ  (  1001, 
EQ  (  2(80) , 
EQ  (1200), 
EQ  (1210), 
EQ  (1220), 


GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 


990 

10 

20 

10 

100 

200 

1200 

1210 

1220 


1200 


1210 


INITIAL  PERSONNEL  QUANTITY 

3  GO  }J0JV<iASf*¥l,,  LS  LET  PQTVI8ASE, VI I  •  VJ 

INITIAL  EQUIPMENT  QUANTITY 

1  GO  <**»•  LET  EQTYUASE ,Vl)  •  VJ 

initial  spares  quantity 

*  GO  TOfl[V<U$f ,¥ln  <V>I*  iff  •  V) 

OEM AMO  ARRIVAL 
>  CALL  DOWN 
GO  TO  | 

CMO  OF  MAINTENANCE 
CALL  UP 
GO  TO  1 

CHANGE  IN  PERSONNEL 
LET  VALUE  •  FLOATIVS)  •  PC0GTIV2I 
LET  P SUM( RASE)  •  PSUMUAS.E)  ♦  VALUE 
('ALL  PREPTI VALUE) 

GO  TO  t 

CHANGE  IN  SPARE  PARTS 
LET  VALUE  •  FLOATIVS)  •  SC0STIV2I 
LET  S SUM  (RASE  I  •  SSUMIRASE)  ♦  VALUE 
CALL  SREPT(VALUE) 


>*00000 
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GO  ro  i 
c 

C  CHANGE  IN  EQUIPMENT 
1220  LET  VALUE  *  FLOAT  I VS)  *  ECQST(V2I 
LET  E SUN! BASE )  »  ESUN( BASE )  ♦  VALUE 
CALL  EREPTIVALUE) 

GO  TO  1 
C 

C  ENO  OF  SIMULATION 

990  CALL  OONE 
ENO 

♦IBFTC  COMPUT 

SUBROUTINE  COMPUT 
C 

C  COMPUTE  INITIAL  PERSONNEL  COSTS  PER  BASE 

00  TO  10,  FOR  EACH  EBASE  I 
00  TO  9,  FOR  EACH  PTYPE  J 

LET  PSUMdl  *  PSUM(I)  ♦  | FLOATIPQTYI I , J) )  ♦  PCOSTIJ)) 

9  LOOP 
10  LOOP 
C 

C  COMPUTE  INITIAL  EQUIPMENT  COSTS  PER  BASE 
00  TO  20,  FOR  EACH  EBASE  I 

DO  TO  19,  FOR  EACH  ETYPE  J 

LET  ESUMIII  •  ESUM(I)  ♦  I FLOATIEQTVI I , J) )  ♦  ECOSTIJ)) 

19  LOOP 

20  LOOP 
C 

C  COMPUTE  INITIAL  SPARE  PART  COSTS  PER  BASE 
00  TO  TO,  FOR  EACH  EBASE  I 

00  TO  29,  FOR  EACH  STVPE  J 

LET  SSUMU)  *  SSUMtl)  ♦  IFLOATI SQTYI I ,  J))  *  SCOSTIJM 
29  LOOP 
TO  LOOP 
RETURN 
ENO 

♦IBP TC  OOWN 

SUBROUTINE  DOWN 

OEMAND  ARRIVAL 
RECORD  DOWN  TIME  OF  SITE 
REAO  DETAIL  RECORO 

READ  191  11,12,11, IA,I5, 16, 17, 18, F9,F10 
LET  FOLON  *  0 
STORE  II  IN  S IT  10 
C 

C  TEST  TO  SEE  IF  SITE  IS  ALREADY  DOWN 

FINO  FIRST,  FOR  EACH  WORK  OF  SET1BASE),  WITH  UDIWORK))  EQ  (SITIDI 
X,  IF  NONE,  GO  TO  10 
LET  CUOOU  IK)  •  CTIOO(WORK)  ♦  1 
RETURN 
C 

(0  CREATE  WORK 

LEI  lOIVORK)  •  SI T 10 
LET  STARTIWORK)  «  ETIME 


non  nop  #  o  o  o  x  o  r>  o  o  o 
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LET  C T 1 00 ( WORK )  «  l 
FILE  WORK  IN  SfcTI BASE  I 
RETURN 
END 

•I6FTC  UR 

SUBROUTINE  UR 

END  OF  MAINTENANCE 
RECORD  UR  TIME  OF  SITE 
READ  OETAR  RECORD 

READ  I?)  11, 12,1), 14,15,16, 17, 18, F9,F10 
LET  FOLD*  «  0 
STORE  II  IN  S I T ID 

TEST  VO  SEE  IF  THIS  IS  LAST  OUTSTANDING  DEMAND  FOR  SITE 

FIND  FIRST*  FOR  EACH  MORK  OF  SET!  BASE ) »  WITH  IIOIWORIO)  EU  C  S I TID1 

IF  (CT 100  ( WORK  I  |  tU  ID*  GO  TO  10 

LET  CT2001W0RK)  »  CT200(WORK|  ♦  I 

IF  (CT200(MCRK)|  LS  ( C T1001 WORK II*  RETURN 

10  LET  STOP! WORK )  «  ETIME 

LET  NOR (BASE)  >  NORJBASE)  ♦  ISTQRIWORK)  -  STAR  T ( WORK! ) 

REMOTE  WORK  FROM  SET! RASE) 

OESTROV  WORK 

RETURN 

END 

IBFTC  DONE 

SUBROUTINE  DONE 

COMPUTE  SITE  COSTS  ANO  TOTAL  SITE  TIME  PER  BASE 

DO  TO  10,  FOR  EACH  E8ASE  l 

LET  TOTAL  »  0.0 

00  TO  9*  FOR  EACH  SITE  J 

LET  SUM! 1 1  =  SUM | I )  ♦  I  FLOAT l QTYt I , J ))  ♦  COSTIJ)) 

LET  TOTAL  *  TOTAL  ♦  FLOATIOTVI I ,JI) 

9  LOOP 

LET  TST(I)  »  TOTAL  *  FINSH 
10  LOOR 

COMPUTE  NOR  TIME  FOR  OUTSTANDING  DEMANDS 

00  TO  20,  FOR  EACH  ESASE  1 

19  IF  SET ( I )  IS  EMPTY,  GO  TO  20 
REMOVE  FIRST  WORK  FROM  SET  it) 

LET  NORM)  -  NORtn  ♦  (FINSH  -  START!  WORK  1 1 
OFSTROV  WORK 
GO  TO  19 

20  LOOR 

C  TEST  TO  SEE  IF  STATISTICS  ARE  BY  RASE  OR  FOR  ENTIRE  FLEET 
IF  (FLEET)  NE  (0),  CALL  SUMRY 
C 

00  VO  SO,  FOR  EACH  EBASE  I 

LET  CEFTII)  ■ISUNm+PSUNUIteSUMUMSSUMim/  (TSTin-NORI  I)  ) 
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10  LOO? 

CAU  OUTPUT 
C 

REMIND  0 
CALL  EXIT 
CNO 

•IBFTC  SUNRY 

SUBROUTINE  'UNRY 
C 

C  COMPUTE  STATISTICS  FOR  ENTIRE  FLEET 
C 

00  TO  If*  FOR  MCH  ERASE  I 

LET  TSUM  •  TSUA  ♦  SUM!  I  IpPSL'NI  I  )«ESUN<  I  )*SSUK<  I ) 
LET  THOR  •  TNOR  ♦  NOAM) 

•  ET  TTST  «  TTST  ♦  TSt  ill 
10  LOOP 
C 

LET  TCEFT  »  TSUM  /  I TTST-TNOR l 

CALL  TOUT 

REMIND  I 

CALL  EXIT 

ENO 

•IBFTC  PREFT 

REPORT  PREPTI VALUE) 

X  •••  TYPE  •••  PERSON. EL  AT  BASE  ••• 

X  VI  V2  BASE 

ENO 


TIME  «  •••.••••* 
ETIME 

ENO 

•IBFTC  EREPT 

REPORT  EREPT I  VALUE) 

X  •••  TYPE  •••  EQUIPMENT  AT  BASE  ••• 

X  VI  V2  BASE 

ENO 


TINE  ■ 

ETINE 

ENO 

•IBFTC  SREPT 

REPORT  SAEPTI VALUE) 

X  •••  TYPE  •••  SPARE  PART  AT  BASE  ••• 

X  VS  V2  BASE 

CNO 


TIME  ■  •«.*«*♦ 
ETINE 

CNO 

•IBFTC  OUTPUT 

REPORT  OUTPUT 

1  COST/EPFECTI 

X 
X 

X 

X  FOR  EACH  ERASE  I 


COSTING  *••••*••* 
VALUE 

X 

I  X 


COSTING  •••••*.♦• 
VALUE 

X 

I  X 


COSTING  •*••••.•• 
VALUE 

X 

I  X 


E  N  E  S  S  F  0 

BASE  •••  • 

I 
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*  «*••«*••*  S  1  N  U  I  A  T  e.  n 

fMH  *»*«LATEO  OATS 

CfFTlIf 


♦ISETC  TOUT 

REPORT  TOUT 

X 

X 

X 


C0Sr/EFF6CTlvc 


R  $  I  M  U  I  A  T  C  r\ 

FiHSH  WLAT60  0  A  y  S 

♦•••,  *•* 

TCEFT 


?««»  min"10 

1  36 

1  0  A 

*  T  '  »  i  i 

•  OR 

9  1  R  2  8 

50*00 

25.00 

*\  2:  2  «  *  • 

5  4 

11  OR 

*2  i  R  6  11 

12.00 
12.00 
14.00 
14.00 
14.00 
14.00 

!i  S.2  2  1  4  •' 

,5..oo‘"  *  '* 

f.00 
10. oc 
ai.oo 

1?  .V  214 

*'  ..00*  *  *  » 

2.00 

3.00 

4.00 

9.00 

19  2  *  *  1  3  17 


2 

(06.21 


2(161 


6 

(06.2) 


4 

I 06.21 


5 

(06 .2) 


MSS  f  o 

FLEET  »  *» 


OASES 

SITES 

COST 


PERSON 

PCOST 


EQUIP 

ECOSF 


SPARES 

SCOST 


20  OR 

21  2 70  l 

29  1  I  2  I 

2  9  0  * 

<0  i  Z  2  1 

91  0  7 

9?  17  2  1 

33  0  Z 

34  0  2 

35  0  2 

36  0  2 
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25*00000 


ENOS  I M 


FLEET 


END  INITIALIZATION 
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Program  9 

base  SHOPS  maintenance 
CAPABILITY 


/ 


i 

i 
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IX.  BASE  SHOPS  MAINTENANCE  CAPABILITY 

The  Base  Shops  Maintenance  Capability  program  is  used  to  display 
the  outputs  from  the  Bench  Repair  Simulator.  The  report  consists  of 
five  parts:  the  input  to  each  shop,  its  output,  and  he  reparable 
repair  times  for  the  period(s)  of  time  selected;  queueing  and  utili¬ 
zation  factors  for  each  resource  group  (personnel  and  equipment  groups); 
queueing  factors  for  each  component  spare  part  type;  stock  levels, 
component  spare  repair  times,  stockouts,  and  demands  for  each  component 
spare  part;  and  detailed  information  for  each  activity  about  its  per¬ 
formance  during  each  period  of  simulation. 

An  example  of  the  output  display  is  shown  in  Figs.  1°  Lo  23. 

Figure  19  is  the  display  of  shop  statistics,  showing  the  system  (or 
Unit  or  item)  arrivals  and  departures,  reparables  in  process,  and 
repair  cycle  times.  A  separate  display  is  presented  for  each  shop. 

The  example  display  is  for  shop  No.  3. 

The  first  line  of  data  shows  the  time  at  which  the  statistics 
were  taken.  Notice  that  the  report  is  for  day  ending  14.000.  Since 
"time"  began  at  time  0.000  in  the  simulation,  and  the  report  is 
initialized  for  seven-day  periods,  the  fourteenth  day  will  end  at  time 
14.000  (not  14.999).  The  next  line  entry  shows  the  number  of  reparables 
that  entered  the  shop  (13)  for  the  period  and  the  sum  of  all  reparables 
entering  the  shop  (30)  as  of  the  re  jrt  period. 

The  third  line  entry  is  the  serviceables  departing  the  shop 
(returned  to  serviceable  stock)  (8),  during  the  period,  and  the  sum  of 
ell  items  processed  to  date  (20).  The  difference  between  the  arrivals 
and  departures  is  presented  as  the  number  in  process  (10). 

The  next  line  displays  a  distribution  of  the  reparables  in  process. 
The  average  time  in  process  (for  the  twenty  that  were  processed)  is 
4.73  days,  the  maximum  time  was  10  days,  and  the  minimum  1  day.  The 
standard  deviation  for  the  distribution  is  2.37. 

The  repair  time  distribution  is  presented  both  for  the  period 
(Just  7  days)  and  accumulated  for  the  fourteen  days. 

Figure  20  displays  the  activity  Queueing  Factors  for  the  period. 
Column  1  lists  the  activities  In  sequence.  Columns  2,  3,  and  4  list  the 
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distribution  of  the  quantity  of  reparables  processed  by  each  activity 
for  the  period.  Column  5  lists  the  average  time  that  the  reparables 
spena  in  queue  behind  each  activity  awaiting  some  resource.  The 
average  queue  time  is  displayed  as  work  time;  i.e.,  off-shift  time 
is  not  included. 

Figure  21  is  the  Personnel  Utilization  report.  For  each  per¬ 
sonnel  type,  listed  in  col.  1.,  the  sum  of  all  personnel  on  duty  for  all 
shifts  of  the  period  (of  course,  the  period  may  be  only  one  shift)  is 
presented  in  col.  2.  The  utilization  factor,  which  is  the  time  actually 
engaged  in  a  process  divided  by  the  total  duty  time  available,  is  pre¬ 
sented  in  col.  3  for  each  personnel  type.  The  balance  of  the  display 
is  devoted  to  the  man-hours  used  at  each  activity  for  each  personnel 
type.  For  example,  personnel  type  2  worked  at  activities  5,  10,  and  11, 
and  a  total  of  93.23  man-hours  were  used  during  the  simulation  period 
(seven  days). 

Figure  22  is  the  Equipment  Utilization  report.  By  equipment 
type,  listed  in  col.  1,  the  quantity  is  listed  in  col.  2;  cols.  3,  4, 
and  3  list  the  time  the  equipment  was  used,  the  idle  time,  and  the 
downtime  (all  in  dec imal -days ) .  Note  that  the  summation  of  these 
three  columns  is  equal  to  14  equipment  days  for  Equipment  types  1  and 

2,  and  2'  equipment  days  for  Equipment  type  3.  This  is  the  total  time 

available  for  the  equipment.  Off-shift  time  is  not  deducted. 

Column  6  is  a  count  of  the  number  of  times  the  shop  equipment 
failed  during  the  period  (in  this  example,  7  days).  Column  7  is  the 
utilization  factor  for  the  equipment,  computed  by  dividing  the  total 
time  available  (equipment  days)  into  the  time  in  use.  Column  8  lists 
the  activities  where  the  equipment  was  used. 

Figure  23  Is  the  display  of  the  Queueing  factors  for  each  com¬ 
ponent  spare  part.  Column  1  lists  the  spare  part  ID  number.  Column  2 

lists  the  quantity  or  authorised  stock  level  of  each  spare  part. 

Column  3  lists  the  number  of  demands  for  each  spare  part  during  the 
period. 

Columns  4,  S,  and  6  list  the  distribution  of  the  quantity  of  un¬ 
filled  demands  (average,  maximum,  and  minimum)  for  each  spare  part 
type.  Column  7  lists  the  average  queue  time- -Che  average  time  required 
to  fill  the  desMnd. 
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SHOP  J 

SYSTEM  ARRIVALS,  DEPARTURES,  IN-PROCESS, 

AND  REPAIR  CYCLE  TINES 

DATA  FOR  PERIOD  ENDING  DAY  14.000 

REPARABLES  ENTERING  SHOP  THIS  PERIOD  IS,  TO  DATE  30 

SERVICEABLES  DEPARTING  SHOP  THIS  PERIOD  8,  TO  DATE  20 

NUMBER  IN  PROCESS  10 

AVG  MAX  MIN  STD  DEV 


REPARABLES  IN  PROCESS  4.75  10 

REPAIR  TIME 

THIS  PERIOD  1.99  3.03 

TO  DATE  1.37  3.03 


1  2.37 

0.96  0.69 

0.88  0.67 


Fig.  19 


ACTIVITY  QUEUEING  FACTORS 
FOR  PER  100  JUST  COMPLETED 


ACT. 

NO.  OF 

REPS 

IN  QUEUE 

AVG  QUEUE  TIME 

NO. 

AVG 

MAX 

MIN 

(IN  MRK-HOURSI 

1 

0.11 

1. 

0. 

0.80 

I 

0.01 

1. 

0. 

0.61 

1 

0.00 

I. 

0. 

0.00 

4 

0.01 

1. 

0. 

0.09 

S 

1. 10 

1. 

0. 

0.T6 

6 

0.01 

1. 

0. 

0.0 1 

7 

1.  10 

0. 

0. 

1.18 

• 

0.00 

1. 

0. 

0.  00 

9 

4.11 

10. 

0. 

.  .  *4 

10 

0.17 

1. 

0. 

0  16 

II 

0.00 

1. 

0. 

0.00 

It 

0.00 

>. 

0. 

0.11 

11 

0.01 

1. 

0. 

0.01 

Tig.  20 
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PERSONNEL  UTILIZATION 


PERS 

TYPE 

UTIL 
QTY  FACT 

NO 

MAN* 

HOURS 

WORK  TIME 
AT  ACTIVITY 
MAN4* 

NO  HOURS 

NO 

MAN¬ 

HOURS 

NO 

MAN¬ 

HOURS 

NO 

MAN- 

HOURS 

1 

42 

0.09 

1 

4.41 

2 

11.62 

3 

4.83 

12 

3.01 

13 

5.79 

2 

36 

0.32 

5 

20.40 

10 

64.  10 

11 

6.7S 

3 

48 

0.27 

4 

32.03 

s 

40.79 

10 

32.  OS 

4 

30 

0.40 

6 

32.22 

7 

24. 18 

6 

22.65 

9 
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IMITIALIZATION 

The  Base  Shops  Maintenance  Capability  report  program  requires  the 
Initialisation  of  83  variables.  Only  12  require  values,  however. 

Table  5,  Variable  Description  and  Initialisation  Table--Base  Shop 
Capability,  contains  the  Information  required  to  initialise  the  report 
program.  An  example  Initialisation  data  deck  listing  follows  the 
"Output  Program"  listing. 

OUTPUT  PROGRAM 

The  input  to  this  program  ia  the  binary  tape  generated  by  the 
Bench  Repair  Simulation  Program;  this  tape  ia  read  from  logical  unit 
#9. 

The  input  tape  consists  of  12-word  label  records  with  the  following 
format : 

Word  1  -  irrelevant. 

Word  2  -  IDD  -  a  four-digit  number  identifying  the  "event"  or 
"occurrence"  represented  by  this  record. 

Words  3,  4,  5  -  irrelevant. 

Word  6  •  INBASE  -  the  base  number. 

Words  7,  8,  9,  10  -  I V 1 .  IV2,  IV3.  LAJDDR .  These  fields  are  used 
to  store  various  Items  of  information,  depending  on  the  value  of  IDD. 

Word  11  -  IMDIC  -  1  if  the  next  record  la  a  detail  record  (to  be 
skipped),  0  otherwise. 

Word  12  -  RTIMX  *  current  simulated  time. 

When  e  label  record  la  reed,  the  value  of  INBASK  ie  compared  with 
the  constant  permanent  attribute  called  BASE;  if  they  are  unequal,  the 
record  la  skipped.  (Thus  it  would  require  n  rune  of  this  analysts 
program  to  process  ell  the  data  from  an  n-baee  simulation  run,  each 
time  changing  the  value  of  BASE.) 

If  the  new  RTXMI  la  greeter  than  the  previous  one,  subroutine 
CLOCK  la  celled  to  check  for  the  end  of  the  operating  shift  and  the 
end  of  the  report  period.  If  the  report  period  has  ended,  subroutine 
MDV1D  le  celled  to  generate  the  reports.  Subroutine  CLOCK  also  updates 
TIM,  which  le  the  actual  work  time  elapeed  since  the  beginning  of 
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simulation,  (The  automatically  defined  system  variable  TIME  is  used, 
in  order  to  take  advantage  of  the  ACCUMULATE  statement.) 

Then  the  appropriate  subroutine  is  called  to  process  the  label 
record.  To  each  significant  LDD  number,  there  corresponds  a  subroutine: 
e.g.,  subroutine  NEXTAC  is  called  whenever  IDD  equals  4400.  If  T.DD 
does  not  match  any  of  the  significant  numbers,  it  is  skipped. 

If  IDD  =  3,  the  end  of  simulation  has  been  reached;  the  program 
terminates  after  writing  the  last  set  of  reports. 

Error  tests  intended  for  the  debugging  phase  have  been  left  in 
the  program,  sprinkled  throughout.  If  an  error  Is  encountered,  this 
means  that  something  is  amiss  in  this  program,  in  the  simulation  pro¬ 
gram,  or  in  the  initialization  deck.  Subroutine  ERROR  is  called,  which 
terminates  after  outputting  the  current  value  of  RTIME  and  a  four-letter 
abbreviation  identifying  the  routine  in  which  the  error  was  detected. 

For  instance,  "REA2"  refers  to  the  second  error  condition  in  subroutine 
READY. 

Subroutine  SNAP  outputs  a  "snapshot"  of  all  permanent  and  temporary 
variables,  as  an  aid  to  debugging.  The  uBer  may  insert,  at  any  point, 
a  call  to  SNAP  with  an  identifier  of  one  to  four  letters  and/or  digits; 
e.g.,  CALL  SNAP  (4KNAME) .  In  this  example,  "NAME"  is  the  identifier. 

In  the  current  version  of  the  program,  ERROR  callB  SNAP  before  terminating. 


PERMANENT  VARIABLES 

This  list  is  complete  except  for  attributes  denoting  first-of-set 
or  last-of-set,  and  attributes  used  only  to  keep  track  of  time  in  an 
ACCUMULATE  statement  such  as  TQSZA  (these  always  have  names  beginning 
with  "T") . 

RTIME  -  current  simulated  time;  it  is  obtained  from  each  label  record 
as  it  is  reed  in. 

STIME  -  the  "RTIME"  of  the  previous  label  record. 

TIME  •  (a  variable  automatically  defined  by  the  system)  -  number  of 

work  days  elapsed  since  the  beginning  ~f  simulation.  For  example, 
suppose  there  *re  40  work-hours  in  a  week.  Then  if  RTIME  •  7.0, 
TIME  will  be  equal  to  1.6667  or  1-2/3  (which  is  40  divided  by  24). 
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PTIME  -  the  value  of  "TIME"  at  the  end  of  the  previous  report  period. 
ENDSH  -  the  "RTIML"  at  which  the  current  shift  will  end. 

ENDPD  -  the  "RTIME"  at  which  the  current  period  will  end. 

ETIME  -  the  value  of  "RTIME"  at  the  end  of  the  previous  report  period. 

CURPD  -  che  length  in  work  days  (using  "HME")  of  the  period  just 

completed . 

CURP  -  the  length  in  simulated  time  (using  "RTJME")  of  the  period  Just 
comple ted. 

CURSH  -  number  of  current  shift  (on  a  weekly  cycle). 

tJRAC  -  activity  number  associated  with  current  label  record. 

CURSP  -  spare  part  number  associated  with  current  label  record. 

CUREP  •  I.D.  number  of  REP  associated  with  current  label  record. 

SHOP  -  permanent  entity,  of  which  the  following  are  attributes: 

RIN  -  number  of  reps  entering  this  shop  this  period. 

ROOT  -  number  of  reps  leaving  shop  this  period. 

TRIN  -  total  number  of  reps  in  shop  (since  the  beginning  of 
simulation) . 

TROUT  -  total  number  of  reps  that  have  left  this  shop. 

MAXR  -  maximum  number  of  reps  in  shop  this  period. 

MINR  •  minimum  number  of  reps  this  shop  this  period. 

RIP  -  number  of  reps  currently  in  process  in  this  shop. 

RIPS  -  a  running  sum  of  all  the  values  that  RIP  has  assumed 
during  this  period. 

RIPSQ  -  a  running  sum-square  total  of  all  the  values  that  RIP  has 
assumed  during  this  period.  E.g.,  if  RIP  has  had  the  values 
2,  3,  4,  3,  2  in  this  period,  then  RIPS  is2  +  3  +  4  +  3  +  2 
or  14,  and  RIPSQ  is  22  +  32  +  42  +  32  +  22  or  42. 

RTS  -  sum  of  the  repair  times  of  all  raps  leaving  shop  this  period. 
RTSQ  -  sum  of  squaras  of  repair  Limas  of  all  reps  leaving  shop 
this  period. 

TRTS  -  sue  of  RTS  for  all  periods  to  date. 

TRTSQ  -  sum  of  RTSQ  for  all  periods  to  date. 

MXRT  -  maximum  repair  time  for  shop  this  period . 
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MSBLX  -  minimum  tbps.it  tine  for  shop  this  period. 

TMXXT  -  maximum  repair  tine  for  shop,  all  periods. 

TMNRT  -  aialaun  repair  tine  for  shop,  all  periods. 

ACTIV  -  activity;  a  permanent  entity,  of  which  the  following  are 
attributes : 

QSLA  -  current  queue  site  at  this  activity. 

CQSZA  -  cumulative  tota*  of  QSZA,  this  period. 

MXQSA  -  oaximuu  value  of  QSZA,  this  period. 

MNQ5A  -  minimum  value  of  QSZA,  this  period 
TXAQS  -  "time  iu  actlvlt)  queue,  sunned;"  the  total  time,  in 
work  days ,  that  reps  have  spent  In  the  queue  for  this 
activity. 

AVQSA  -  average  queue  aiae  at  this  activity. 

AVTAQ  -  average  time  in  queue  for  this  activity. 

AQOUT  -  number  of  reps  that  have  left  the  queue  of  this  activity 
during  this  period. 

PTYPE  -  personnel  type;  a  permanent  entity,  of  which  the  following  are 
attributes: 

QTYS  -  total  number  of  this  type  of  personnel. 

CQTY  -  number  of  man-days  for  this  personnel  type  for  this 
period. 

ETYPE  -  equipment  type;  a  permanent  entity  with  the  following 
attributes: 

QTYE  -  total  quantity  of  this  equipment  type. 

NFAIL  -  number  of  failures  of  this  type  of  equipment  during  this 
period . 

INUSE  -  quantity  >'f  this  equipment  type  currently  in  use. 

CINUS  -  cumulative  total  of  INUSE,  this  period. 

DOWN  -  quantity  of  this  type  of  equipment  that  is  currently 
down. 

CDOWN  -  cumulative  total  of  DOWN,  this  period. 

SPTYP  -  spare  pert  type;  a  permanent  entity  with  the  following 
attributes: 

QTYSP  -  quantity  of  spares  of  this  type  eveileble  at  beginning 
of  simulation. 
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EMAND  -  number  of  demands  for  this  type  of  part  during  this 
period. 

FILL  -  number  of  times  that  such  a  demand  was  filled. 

QSP  -  queue  slse  for  this  type  of  part. 

CQSP  -  cumulative  total  of  QSP,  this  period. 

MJCQS?  -  maximum  value,  of  QSP,  this  period. 

MNQSP  -  minimum  value  of  QSP,  this  period. 

TISQS  -  total  time,  in  vork  days,  that  reps  have  spent  in  the 
queue  for  this  type  of  part. 

AVQSP  -  average  value  of  QSP,  this  period. 

AVTSQ  -  average  time  in  queue  for  this  type  of  spare  part. 

RPTYP  -  rep  type;  a  permanent  entity  with  the  following  attribute: 

SHPNO  -  number  of  the  shop  to  which  this  type  of  rep  belongs. 
SHIFT  -  a  permanent  entity  with  the  following  attribute: 

SCHED  -  1  if  this  is  a  work  shift;  0  if  this  is  an  off  shift. 
QTYPR  -  a  permanent  attribute  with  two  subscripts: 
first  subscript-  PTYPE 
second  subscript:  SHIFT 

meaning:  the  quantity  of  personnel  of  this  type,  on  duty  during 
this  shift. 

LENSH  -  the  length  of  a  shift. 

PE ROD  -  the  length  of  a  report  period. 

BASE  -  the  number  of  the  base  for  thit  run;  all  label  records 
pertaining  to  any  other  base  will  be  ignored. 


REP  -  a  temporary  entity  with  the  following  attributes; 

QTDffl  -  the  value  of  "TIME"  when  the  rep  entered  the  queue  for 
an  activity. 

BTIME  -  the  value  of  "RT1ME"  when  the  rep  entered  the  system. 

ISMO  -  the  I.D.  number  of  the  rep:  a  number  obtained  from  the 
label  record,  representing  the  absolute  storage  address  of 
the  rep  in  the  simulation  run. 

QFLAC  -  a  number  which  is  equal  to  aero  unless  the  rep  is  in  the 
queue  for  an  activity,  in  which  case  QFLAC  equals  the  number 
of  that  activity. 
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SFLAG  -  equal  to  zero  unless  reo  Is  in  the  queue  for  a  spare  part , 
in  which  case  SFLAG  equals  the  number  of  that  type  of  part. 

SFTXM  -  the  value  of  "TIME"  when  the  rep  entered  the  queue  for 
a  spare  part. 

PLOAD,  SLOAD,  PACTQ,  SACTQ  -  attributes  associated  with  the  sets 
LOAD  and  ACTQ. 

DIBtfY  -  a  temporary  entity  whose  purpose  is  to  save  information  to 

be  output  in  Table  4.  It  has  two  attributes: 

ACNO  -  the  number  of  an  activity  at  which  this  type  of  equipment 
is  to  be  used. 

SSET  -  successor  in  the  set  called  "SET." 

ENTRY  -  a  temporary  entity  having  to  do  with  the  utilisation  of 

perf-mnel  at  different  activities.  Its  attributes  are: 

ACNO  -  the  number  of  an  activity  at  which  this  type  of  personnel 
is  used. 

WRING  -  number  of  personnel  of  this  type  working  at  activity 
whose  number  equals  ACNO. 

CWKNG  -  cumulative  total  of  WRING,  this  period. 

TWKNG  -  the  value  of  "RTIME"  when  CWKNG  was  last  updated. 

PLIST,  SL1ST  -  attributes  associated  with  the  set  called  "LIST." 


SETS 

LOAD  -  a  set  with  one  subscript,  ranked  on  BTIME. 
owner:  SHOP 
member:  REP 

The  LOAD  of  each  SHOP  consists  of  all  the  reps  that  ere  currently 
in  process  in  what  shop. 

ACTQ  -  a  set  with  one  .  becript,  ranked  on  3TIME. 
owner:  ACT IV 
member:  REP 

.'CTQ  le  the  queue  oi  all  raps  currently  waiting  at  an  activity. 
SET  «  a  FIFO  set  with  one  subscript, 
owner:  ETYPE 
member:  DUMMY 


■213 


SET  Is  Che  set  of  all  activities  aC  which  this  type  of  equipment 
can  be  used.  This  information  is  Co  be  output  in  Table  4. 

LIST  -  a  set  with  one  subscript,  ranked  on  ACNO. 
owner:  PTYPE 
member:  ENTRY 

LIST  has  one  ENTRY  for  each  activity  at  which  this  type  of 
personnel  has  been  used  during  this  report  period. 

Standard  Names  for  Local  Variables 


IACNO 

always  meaus 

activity  number 

IEQNO 

always  means 

equipment  number 

IPERNO 

always  means 

personnel  number 

ISPNO 

always  means 

spare  part  number 

IREPNO 

always  means 

rep  number 

ID  or  IDREP 

always  means 

I.D.  number  of  rep 

IQTY 

always  means 

quantity  or  number 

T  REP  8 


1  DIPPY? 
?  ENTRY8 
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T  CTIPE  1  F 
?  BH  PE  2  F 
?  ICBC  3  ! 

T  CFIAC  41/2  I 
I  SFIAG  42/2  I 
T  SPTIP  5  F 
?  SLCAC  6  I 
T  SACTC  7  1 

T  PICAD  81/2  I 
1  PACTC  82/2  ! 

LCAC1 

ACTQl 

T  SSET  2  | 

SET  1 


T  ACRC  1 
T  BKIBG  2 
1  CBKftG  3 
T  TkKKG  4 
1  PtIST  5 
T  SI  1  ST  6 


I 

F 

F 

F 

I 

I 

1RTIPE 
2STIPE 
3PTIPE 
4EBCSF 
5EBCPC 
6CIRPC 
7CUBSH 
8CUPAC 
9CURSP 
10SFCP 
1 1FLC AC 

l2LLCAr 

13RIB 

14PCllT 

UTRIB 

16TPCUT 

17PAXR 

IBP  IBP 

19BIP 

20R1PS 

2IR1PSC 

22PTS 

23BISC 

24FBTS 

25TRTSC 

26PXPT 

27PBRI 

28TPXPT 

29TPRRT 

3CAvTI9 

31CS2A 

32CCS/A 

33TCS/A 

UPXCSA 

34PBCS  A 

3f  I  IAC< 


L  1ST  1 


•8TIPE  L 
•BTIPE  L 


♦ACNC  L 
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I 

i 

i 


* 

* 


iiftc  mu 


c 

*  1C 

c 

t 

c 


324VCS4  1  f 
364VTIC  1  F 
37FFCTC  I  I 
38LFCTC  1  I 
394CCLT  1  | 
40PTVPC  | 

41FI  1ST  1  I 
42LI  1ST  1  1 
43CTVS  I  f 
44CCTV  1  F 
45TCTV  1  F 


46CTVPC  C 

47CTVC  I 

I 

488F4IL  1 

I 

50IKUSC  1 

F 

5ICIMJS  1 

F 

52  TIfttS  1 

F 

53CC18  1 

F 

34CCCK4  1 

F 

SSTCCkN  1 

F 

56FSCT  1 

I 

571SCT  I 

I 

60SPTVP  I 

61CTVSP  1 

I 

620MNC  1 

I 

63F  ILL  1 

1 

64FSPC  I 

I 

651SPC  1 

I 

66CSP  I 

F 

67CCSP  1 

F 

68TCSP  1 

F 

69MCSP  1 

F 

tomcsp  i 

F 

7ITISCS  1 

F 

674VCSP  1 

F 

714VTSC  1 

F 

73CU8CP 

1 

74CU8P 

F 

75CTIPI 

F 

76MTVP  1 

77SHP4C  | 

1C 

78SMFT  | 

79SCMC  I 

1C 

80CTYPF  2 

F 

aucasa 

FC 

82PI8CC 

FC 

83f J|f 

(C 

MIX  ftClTIfcE 

C*ll  M(UF 

•EAO  ft  14if t  BfCOftO 

**•*•* ftaiftSf # IV1 * IV2#  IV3*  IftCOft*  INC  1C  ft 


f*  I:!!;,1*  4  0fTm  "«««.  skip  ovc*  IT 

"  UHI  m'im.'k'k  !ottM  ,ct*”  15 

cm  cicu 


i€t  cacao  -  Mt»f 

till  ikDMt 
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STOP 

SKIP  THIS  KfCOMC  IP  IT  CCIS  NCT  PERTAIN  TO  THE  RIGHT  BASE 
IP  ( INBASE)  ME  (CASE) «  GC  TO  10 
IP  tRTIPE)  GR  (STIPE) •  CALL  CLCCK 


CALL  THE 

APPRCPRI ATI 

RCUTINE 

IP 

(100) 

EC 

(4000). 

GO 

TC 

90 

IP 

(IOC) 

EC 

(4002). 

GC 

TC 

92 

IP 

(ICO) 

EC 

(400). 

GC 

TC 

94 

IP 

(IOC) 

EC 

(4004), 

GC 

TC 

56 

IP 

(100) 

EC 

(4009), 

GO 

TC 

58 

IP 

(IOC) 

EC 

(4200), 

GC 

TC 

60 

IP 

(ICC) 

EC 

(1401), 

GC 

TC 

62 

IP 

(IOC) 

EC 

(4400), 

GC 

TC 

64 

IP 

(IOC) 

EC 

(4401), 

GC 

TC 

66 

IP 

(IOC) 

EC 

(4460), 

GC 

TC 

68 

IP 

(IOC) 

EC 

(4990), 

GC 

TC 

70 

IF 

(100) 

EC 

(4470), 

GC 

TC 

72 

IP 

(IOC) 

EC 

(4960), 

GO 

TC 

74 

IF 

(ICC) 

EC 

(4600), 

GO 

TC 

76 

IP 

(ICO) 

EC 

(4700 1 , 

GC 

TO 

78 

IP 

(IOC) 

EC 

(4490), 

GC 

TC 

80 

IP 

(IOC) 

EC 

(4499), 

GC 

TC 

87 

IP 

(IOC) 

EC 

(4800), 

GO 

TC 

84 

IP 

(IOC) 

EC 

(4801), 

GO 

TC 

86 

PCR 

ANY 

CTHER  VALUE 

OP 

ICC, 

SKIP  THIS  RECORC 


GO  TC  10 

CALL  ACTVTY  (IVI) 

GO  TC  1C 

CALL  ECATAC  1 1 VI » 

GC  TC  10 

CALL  PRSNEl  1 1 VI •  IV2,  IV3) 

60  TC  10 

CALL  ECUIP  < I VI  •  I V 2 ) 

GC  TC  10 

CALL  SPARES  < I VI •  I V2 ) 

GO  TC  10 

CALL  ARBIV  < I VI •  lAOOR) 

GO  TC  10 

CALL  DEPART  4t VI •  IACCR) 

GO  TO  10 

CALL  M1TAC  1 1 VI  *  IV),  IACCR) 

GC  TC  10 

CALL  REAOV  (IVI) 

GO  TO  10 

CAU  ASINPR  Cl VI  •  IVSI 
GC  TC  10 

CALL  RLCSPR  (IVI.  IV).  IACCR) 
GO  TC  1C 

CAU  ASIAEC  (IVI.  IVSI 
GO  TC  10 

CAU  ALESCG  (IVI.  IVI) 

GO  TO  10 
CAU  PAIL  (IV)) 

GO  TO  10 

CALL  RCSTCR  IIVS) 

GO  TC  10 

CALL  SPAVL  (IVI I 

GO  TO  10 

CALL  IRSPG  (IVI.  IVI) 

GC  TC  10 


noon 
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64 

CALL  SPPET  ( I VL  > 

GO  TC  10 

66 

CALL  LVSPO  6 1 VI • 

GC  TC  10 

ENO 

♦IBETC  PRtllP 


SU6ACUTI HE  PAElIN 

C  . INI  II  Ail  ZE  SCPE  SYSTEN  VARIABLES 

LET  ENOPO  -  PERCO 
LET  ENDSH  -  LEASH 
LET  CLASH  •  1 

C  . INITIALIZE  EACH  PINIPUP  TC  A  VERY  LANCE  NUP8SR 

OC  TC  20.  EON  EACH  SHOE  I 
LET  NNNTI1)  •  ICCOO. 

LET  TNNNT ( 1 1  •  lOOOO. 

2 C  LCON 

RETURN 

END 


•  IBETC  CLOCK 


SUBROUTINE  CLOCK 

. THIS  ROUTINE  KEENS  TRACK  CE  TINE*  ENC-CE-PER 100*  ANC  ENO-OE- 

.  SHIET.  •TINE'  IS  THE  ACTUAL  NCRK-T INE  ELANSEO  SINCE 

.  THE  BEGINNING  CE  SIPULATICN*  NHENEAS  •RTINE*  IS  THE 

.  CURRENT  SINULATEC  TINE* 

2C  LET  T  -  ANIN1  (RTINE •  ENCSH*  ENCPC) 

C  . UPDATE  TIPE  IE  SOPE  MCRK-UPE  HAS  ELAPSCC.  THAT  IS*  IE  THIS 

C  .  IS  A  HORNING  SHIFT 

IE  ( SCHEO(CURSH)  I  EC  III*  LET  TIPE  •  TIPE  ♦  T  -  STIPE 

C  . UPDATE  STIPE 

LET  STIPE  •  T 

IE  (RTIPE)  EC  (T).  GC  TC  100 

C  . UPDATE  THE  NO.  CE  PAN-CAYS  (CCTY)  ECA  EACH  PERSONNEL  TYPE  1 

DO  TC  NO*  EON  EACH  PTYPE  I 

ACCUPULATE  OTVPRI I  *CURSH|  INTO  CCTY  (II  SINCE  TQTVIII 
AC  LOOP 

C  . THERE  IS  AN  END-0P-SH1ET  ANC/CR  AN  ENC-CE-PIN IOD.  Of TERN  INI 

C  .  HHICH  CAPE  FIRST. 

IE  (ENOSPt  LE  (ENOPOI*  GC  TC  SO 

C  . E  NO-OP -PERIOD 

CALL  ENOPRO 
60  TO  *0 

C  . ENO-GP-tHlET.  UPDATE  CURSH  ANC  ENCSH. 

SC  LET  CUBSP  •  PCC  (CURSH.  NSHIET I  ♦  I 

LET  ENOSN  •  ENOSP  ♦  LENSH 
GO  TO  20 
ICC  RETURN 

END 

•IBETC  ENOPRO 

SUBROUT  I  m  EWPBO 

C  ..END  OP  A  REPORT  PERIOD. 

C  . COP  PIT  I  CURP  AND  CUBPO. 

LET  S  •  STINE 

LET  CURP  •  S  -  STIPE 

LET  ETINE  •  S 

LET  CUBPO  •  TIPI  -  PURE 

LET  PURE  •  TIPE 

C  . IP  NC  NCR A- TIPE  HAS  ELAPSIC*  CCN*T  OUTPUT  ANYTHING 

IP  (CUBPO)  CO  (0.1*  GC  TC  100 

C  . OUTPUT  THE  RCPCRTS  POR  THIS  PIRIOt 

CALL  CLTI 
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CALl  CU2 
CALI  CLT3 
CALL  CL  V4 
CALI  CLT5 

LET  ENDEC  •  ENCPD  ♦  PEACE 
ICC  AEILAN 

ENO 

♦IBPTC  ACTVTY 

Sl'BACl VINE  ACTVTY  (IACNC) 

C  . INIS  ACLVINf  IS  CALLEC  PMN  ICC-4C00.  IAT  EEC INNING  OF  ALN) 

IF  (IACNC)  GA  (NACTIV).  CALL  IAACA  (4AACTV) 

LE!  ClAAC  •  IACNC 

AEf LAN 

ENO 

•  IBF1C  EC A I AC 


SOS ACL  VINE  ECATAC  (IECNC) 

C  . THIS  ACLTINE  IS  CALLEC  pPf  N  ICCMC02.  IAT  BEGINNING  OF  ALN) 

IF  (IECNC)  GA  INETVPE )  •  CALL  IAACA  (4HCAT ) 

C  . SAVE  ACTIVITY  NLPBEAS  FCA  AEACAT  NC .  4 


CAEATE  CLPPY  CALLEC  ITEA 
LET  ACNCIITEP)  •  CUAAC 
FILE  ITEA  IN  SETIIECNC) 

AETLAN 

ENO 

•  IBPTC  PASNEL 

SL8ACL VINE  PASNEL  (IPEANC*  ICTY#  ISA1FT) 

C  . THIS  ACLTINE  IS  CALLEC  MAIN  ICC-4C03.  (AT  BEGINNING  OF  AON) 

IF  (IPEANC)  GA  INPTYPE ) «  CALL  IAACA  (4APASN ) 

LET  CWS(IAEANC)  •  CTVSIIFIANC)  ♦  ICTY 
LET  OWPA(  IPEANC  •ISHIFT)  •  ICTY 
AETLAN 
ENO 

•IBP 1C  EQLIA 

SLBACUTINE  ECLIA  (IECNC.  ICTY) 

C  . THIS  ACLTINE  IS  CALLEC  OPEN  ICC-4004.  (AT  BEGINNING  OF  AON) 

IF  (IECNC)  GA  INCTYPE).  CALL  IAACA  (4AEQLI) 

LET  GTTEIIECNC)  •  ICTY 

AETLAN 

ENO 

•IBPTC  SPAAES 

SLBACLTtNf  SPAAES  (ISAAC*  ICTY) 

C  . IMIS  ACLTINE  IS  CALLEC  NPEN  ICC-400S.  t«T  BEGINNING  OP  A  UN) 

IP  IISPNCI  GA  INSPTVP).  CALL  (PAOA  (4ASPAAI 

LET  GTVSPIISPNC)  •  ICTY 

•Eli* 

ENO 

•ItPTC  AAA| V 


SUBACLIINE  AAA| V  (IAEPNC.  IC) 

C  •••...IMIS  ACLTINE  IS  CALLEC  NPIN  ICC-4200. 

C  . A  AfP  HAS  ENTCACC  Tp|  SYSTfP.  CACATI  A  TEAPGAAAV  AECOAO  POA 

C  .  IT.  PILE  IT  INTO  THE  APPACPAIATI  SNOP.  ANC  UPDATE  THE 

C  .  STATISTICS  PCA  THIS  SACP. 


CAEATE  AEP 

LET  BTIPEIACP)  •  ATIPE 

LET  tONCIAEP)  •  ID 

LET  ISMCP  •  SMPNCI IAEPNC) 

LET  NENAIP  •  AIP1ISNCP!  ♦  I 

LET  AIPIISMCP)  •  NENAIP 

LET  AIPIISMCP)  •  AINIISPCP)  «  | 

LET  PAIAIISMOP)  •  PASO  (NENAIP.  PA1AI  ISMCP) ) 
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LET  FRIP  «  AEAPIP 

LET  RIPSIISHCPI  -  PIPS  IISHCPI  ♦  FRIP 
LET  PI  PSCI  ISHCPI  •  PIPSCI ISHCPI  ♦  FR!P**2 
PILE  P«P  IP  tCACIISHCPI 
RFTLRA 
6  NO 

•IBFTC  DEPART 

SlBRCLUAt  DEPART  I IPEPAC  •  It) 

C  . THIS  RCtTIPE  IS  CALLED  AHEA  ICC-  14,0  l . 

C  . A  REP  HAS  LEFT  THE  SVSTEP.  RfPCVE  ARC  DESTROY  IT. 

LEI  ISHCP  -  SHPAC ( 1 REPRC I 

FIRD  FIRST  REPt  FCR  EACH  REP  IP  LCACtlSHCPl.  KITH 

•  I ICPC(REP) IECI1C) »  RHERE  REP»  IF  PCPE»  CALI  ERROR  iAHCEPA I 
REHCVE  REP  FRCP  LCACIISHCPI 

LET  REPAIR  ■  RIPIISHCPI  -  I 

LET  RIPIISHCPI  •  REPAIR 

LET  RCLTIISHCP)  ■  RCUMISHCPI  ♦  1 

LEI  PIPRI ISHCP)  •  PIPO  IPIRR  IP  *  P IRR I  ISH?:P ) ) 

LEI  FRIP  >  PEPPIP 

LET  RIPSIISHCPI  -  R I  PS  I ISHCP  I  4  FRIP 

IF  T  RIPSGIISHCPI  •  RIPSC I  ISHCP  I  ♦  FR!P**2 

LEI  REPTIP  «  ATI  PE  -  ITIPIIRIPI 

LEI  PXRTIISHCPI  •  APAXI  IREPTIP.  PXPTIISHOPII 

LET  PPRTIISHCPI  •  APIPI  IRFPTIP,  PPRTIISHOPII 

LET  RTSIISHCPI  •  RTSIISHCPI  ♦  REPTIP 

LET  RTSCIISHCPI  -  MSCIISHCPI  4  PEPTtR*»2 

OESTRCT  REP 

RE  TLRR 

ERO 

•  IBP  IC  REXTAC 

SLBRCL  TIRE  MKT  AC  UPCrAC,  IACAC,  ICRfPl 

c  . this  rcltim  is  CAiiir  **ma  iccmaoo. 

C  . A  REP  IS  SLBPlTTtC  ICR  RE-SUBP ITT f 1 1  TC  THIS  ACTIVITY. 

IF T  CLiRAC  ■  I  ACRE 

C  . OP  ACTHtAG  IF  ACTIVITY  •  0  IR(CflVtRC) 

IF  IIACRC)  EC  10 » •  CC  TC  SO 
LET  CLREP  •  ICREP 

C  . . FIRO  THE  REP  BY  SEARCHING  THE  ICAC  CF  THE  APPROPRIATE  SHOP. 

FIRO  FIRST  REP •  FCR  EACH  REP  IR  LCACISHPRCI IREPNC lit  AltH 

•  I IORCI ACPI  I  EC  IICREPI •  PHI RE  REP.  IF  NORE.  CALL 

•  CRRCR  UMREXTI 
LIT  X  •  CF LAG  I  RE Pi 

C  . IF  OPLAG  E COALS  THE  ACT.  AC..  THIS  PEP  IS  ALREACY  IN  THE 

C  ......  CLEtE  F CP  THIS  ACTIVITY.  SC  CO  RCTH INC. 

(F  III  EC  IIACAC).  CL  TC  SO 

C  . IF  REP  IS  AlPIACV  IP  SCPE  CTHfi  QUEUE,  THIS  IS  AR  ERROR. 

IF  III  RE  101,  CPU  E*PCA  IAHAEI2 1 

C  . IF  CPIAC  •  0,  Fill  IT  I ATC  THE  QUEUE  FCR  THIS  ACTIVITY. 

LET  CFIACIPEPI  •  IACAC 

ACC  CSIAIIACACI  I ATC  CCSIAIIACACl  SIACE  TQSIAI  IACNO I •  ACC  I. 
LET  PICSAIIACACI  •  APA.YI  ICS  IA  I  IACAC  I  •  PACSA I  IACAO  » » 

LET  CUPEIREPI  •  UPC 
FUF  RIP  IA  ACTCI1ACACI 


SC  PETLRA 

E  AO 

•IBFTC  REACT 

SlBRCUIAE  READY  IIACRCI 

C  . THIS  RCLT1AE  IS  CALLED  AH|A  ICC-44CU. 

C  . THIS  REP  IS  READY  TC  BE  ACPIfC  CR.  AfPCVl  IT  PROP  fit ELI  FOP 

c  .  THIS  ACTIVITY.  ARC  T#M  STATISTICS. 
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ACC  QS1A 1 1 ACNC)  I NTC  CGSZAIIACNO)  SINCE  TQSIA  I  IACNO ) .ACC  -1. 
IF  (CSZAIIACNC)  I  IE  (~l.l,  CALL  fHCK  I4HREAC) 

FINS  FIRST,  FOR  EACH  REF  IN  ACTGIIACNO),  WITH  (IDNOIREP))  EQ 
•  I CL'REP)  ,  WHERE  REF,  IF  NCNE,  CALL  ERROR  (4MtEA2) 

REPCVE  REF  FRCF  ACTGIIACNO 

LEI  FNCSA(IACNC)  *  APINI  ICS  2A  I 1 ACNC » ,  PNQSAI  lACNO  J ) 

LEI  II ACS1 1 ACNC)  -  TIACS(lACNC)  ♦  TIRE  -  QT INEIREP I 

LET  ACCLIUACNC}  «  ACCUTIIACNC)  4  1 

LET  GFLAGIREP)  >  0 

REURN 

END 

•IBFTC  ASINPR 


SUBROUTINE  ASINPR  UPERNC,  ICTY) 

C  . THIS  RCLTINE  IS  CALLED  WHEN  ICC>4460. 

C  . ASSIGN  PERSONNEL  IC  AN  ACTIVITY. 

LET  C  «  IGTY 
LET  R  «  RTIPE 
LET  I ACNC  •  CUR AC 

IF  IIACNC)  EG  (01,  CALL  ERRCR  I4HASPR ) 

C  . .IF  THIS  IS  THE  FIRST  TINE  (CURING  THIS  REPORT  PERIOOI  THAT 

C  .  PERSONNEL  CF  THIS  TYPE  HAVE  EESN  ASSIGNED  TO  THIS 

C  .  ACTIVITY,  CREATE  A  NEK  ENTRY  AND  FILE  IT  INTO  LIST  FOR 

C  ......  THIS  PERSONNEL  NO.  IN  ANY  CASE,  TARE  STATISTICS. 

FIND  FIRST,  FOR  EACH  ENTRY  CF  L 1ST  I IPERNO) ,  WITH 
*  ( ACNC! ENTRY  1 1  EG  IIACNC),  WHERE  ENTRY,  IF  NONE,  GO  TO  IC 

LET  N  •  NKINGIENTRY) 

LEV  CNKNGIENTRV)  •  CNRNGI ENTRY )  4  M  •  (R-YWKNG( ENTRY  I) 


LET  NKINGIENTRY)  -  N  4  C 
GO  TO  90 

20  CREATE  ENTRY 

LET  ACNC (ENTRY )  •  IACNO 
LET  NKINGIENTRY)  *  C 
FILE  ENTRY  IN  LISTIIPERNC) 
SC  LET  TNKNG I  ENTRY )  •  R 

RETURN 
ENO 

♦IPFTC  RLESPR 


SUBROUTINE  RLESPR  (IPERNO,  IGTY,  IACNO) 

C  . THIS  RCLTINE  IS  CALLED  WHEN  ICC«4990. 

C  . PERSONNEL  HAVE  BEEN  RELEASEO  FRCP  THIS  ACTIVITY.  TAKE 

C  ......  STATISTICS. 

FIND  FIRST,  FOR  EACH  ENTRY  OF  LIST! IPERNO),  WITH 
«  I ACNOIENTRY) )  EG  IIACNC),  WHERE  ENTRY,  IP  NONE,  CALL 

*  ERROR  (4HRLPR) 


LET  N  *  NKINGIENTRY) 

LET  R  -  RTIPE 

LET  CNKNGIENTRV)  •  CNKNGI ENTRY )  4  W  •  (R-TWKNGI ENTRY)  ) 

LET  TNKNGIENTRV)  *  R 

LET  NKINGIENTRY)  «  W  -  FLCAT(IGTY) 

RETURN 

ENO 

♦IBFTC  ASINEQ 


SUBROUTINE  ASINEC  I IEQNC,  IGTY) 

C  . THIS  ROUTINE  IS  CALLEC  WHEN  ICC«44?0. 

C  . ass.cn  EGUIPPENT. 

ACCUPULATE  INUSEIIEGNO)  INTO  CENUSUEGNO)  SINCE 
4  TINUSI IECNCI ,  ACO  PICAT ( IGTY ) 

RETURN 


ENO 

♦IBFTC  RLE  see 


o  o  o  •  no  •  on  «  o  o 
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SLBRCLTINE  RLE  SEC  (IECNC,  IGTV I 

. THIS  RCLTI NE  IS  CALLEC  WHEN  ICC-4360. 

. RELEASE  ECU I PHENT. 

ACCUPUl ATE  INUSE I IECNC  *  IMG  CIMUStlfCNO)  SINCE 

•  TINUSI IECNC) 9  ACC  -FLCATI1CTY) 

IF  ( INLSE ( IECNC) )  LE  (-1.1,  CALL  ERROR  (4HRLEC 

RFTLRN 

END 

I6FIC  FAIL 

SLBRCUTINE  FAIL  (IECNC) 

. .THIS  ACLTINE  IS  CALLEC  NHEN  KC-4400. 

......ECUIPPENT  FAILURE. 

LET  NFAIL I IECNC)  -  NFAILI IEQNC I  ♦  I 
LET  T  »  RTIRE 

LET  COCNNI  IECNC)  >  CCCNNIIEQNC)  ♦  CCVN(IEQNC)  ♦ 

•  IT  -  TCQWNt IIQNQ ) ) 
LET  TOCNNI IECNC)  •  T 

IET  OCtMIFCNC)  «  CCNNHECNC)  ♦  1. 

RETURN 

END 

IBFIC  RESTOR 

SUBROUTINE  RESICR  IIECM) 

. THIS  R  LTINE  IS  CALLEC  NHEN  !CC*4700. 

. EQUIPMENT  RESTORED. 

LET  I  -  RTIRE 

LET  COCNN1  IECNC)  •  CCCNMIECNC)  ♦  CORN  I IEQNC  )  ♦ 

•  IT  -  TCCHNIIEQNCn 
LET  TOCNNI IECNC I  *  T 

LET  BONN, IECNC)  «  COMNIIECNO)  -  1. 

IF  (OONNI1ECNC))  LE  I-I.l,  CALL  ERPCR  I4FREST) 

RETURN 

END 

IBFTC  SPA VI 

SUBROUTINE  SPAVl  (ISPNC) 

. THIS  ROUTINE  IS  CALLEC  NHEN  UC-4450. 

. THERE  IS  A  DERANC  FOR  A  SPARE.  THE  SPARE  IS  AVAILABLE*  SO 

.  THE  OEPANC  IS  IRNECIATELY  FILLEC. 

LET  DRANOIISPNC)  •  CRANCIISPNC)  ♦  1 
LET  FILLUSPNC)  •  FIUIISFNC)  ♦  I 

LET  PXCSPI ISPNC)  •  APAX1  ICSPI ISPNC  l«l.v  NXCSPI ISPNO ) ) 

RETURN 

END 

♦  IBFTC  INSPQ 


SUBROUTINE  INSPC  USPKC,  IREPNC) 

C  . THIS  ROUTINE  IS  CAULEC  WHEN  ICC-4453. 

C  . THERE  IS  A  DERANC  FCR  AN  UNAVAILABLE  SPARE  PART. 

FIND  FIRST  *  FCR  EACH  REP  IN  LCACISHPNCt IREPHC I  )*  RITE 

•  IIONCIREPM  EC  ICUREP),  NHERE  REP*  IF  NONE,  CALL 

♦  ERROR  I4HINSP) 

LET  S  >  SFLAGIREP) 

C  ......IF  SFLAG  »  SPARE  PART  NC„*  THIS  REP  IS  ALREACY  IN  OLEUE  FOR 

C  .  THIS  PART,  SC  CC  NOTHING. 

IF  (SI  EC  (ISPNC),  GC  TC  SO 

C  . IF  REP  IS  ALREACY  IN  CUEUE  FCR  A  CtF  Pf RENT  PART,  CALL  ERROR. 

IF  IS)  NE  (0),  CALL  ERRCR  I4HINS2) 

C  . IF  SFLAG  >  0,  PUT  IT  IN  CUEUE  FOR  THIS  SPARE  PART  NO. 

LET  SFLAGIREP)  •  ISPNC 

LET  DPANCI  ISPNC )  «  rMNCIISPNC)  ♦  I 

ACC  CSPIISPNC)  I  NTT  CCSP(ISPNC)  SINCE  TCSPUSPNC),  ACT  I. 

LET  PXC5PIISPNCI  »  A  RAX  l  (CSPIISPNC),  PXCSPIISPNCU 
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LET  SPIIPIREEI  •  TtFf 
5€  RETURN 

END 

•  IREK  SERE? 

SUBROUTINE  SERE?  ( ISENC) 

€  ••••••THIS  RCtllftE  IS  CALLEC  RHEA  ICOBBOO. 

C  . (Ail  RE  NEEO  FREE  THIS  LABEL  RICCRC  IS  THE  SEAR!  EAR!  NO.) 

LET  CLASP  >  ISERC 

RETURN 

ENO 

•  IBFTC  LVSEQ 

SUBROUTINE  LVSPC  (IREPNC.  ICREP) 

C  . THIS  ROUTINE  IS  CALLEC  RHEN  ICC-A801. 

C  ••••••A  SEARS  PART  IS  AVAILABLE • 

C  . IF  NC  REE  RAS  RAIT1N6  FCR  THIS  PART*  CC  NOTH  INC. 

IF  (ICREE)  EC  (01*  CC  TC  50 

C  . TAKE  THIS  REP  OUT  OF  THE  CLE'JE  FOR  THIS  SPARE  PART. 


LET  ISENC  >  CURSE 

LET  FILL  1 1 SENC)  •  FILMISFNOt  ♦  t 

ACC  CSE(ISPNC)  I NTC  CGSFlISEAt)  SINCE  TQSEflSENOI*  AOC  - 1. 
IF  (QSPI1SPNCI)  LE  1-1. I*  CALL  ERROR  I4HLVSE ) 

LET  RNOSEf ISENC)  *  AEtNt  (CSPIISENCI*  ENQSEf ISENO ) ) 

PINO  FIRST.  FOR  EACH  REP  IN  LCACISHENGI IREPNO 1  )*  RITE 

*  S  lONC(REP)  I  EC  (ICREP).  REHERE  REE.  IF  NONE.  CALL 

♦  ERROR  (4HLVS2I 

LET  TI  SCSI  I  SENG)  -  TISCSUSENC)  ♦  TIPI  -  SET  IN(REE) 

LET  SFLAG(REP)  »  0 
5C  RETURN 

ENO 

•  I0FTC  OUT  I 

SLB>  OLTINE  CUTI 

C  . GENERATE  A  'TABLE  1*  REPORT  FCR  EACH  SHOE. 

00  TO  100.  FOR  EACH  SHCE  I 
LET  IAIN  -  RIM  1 1 
LET  IRCLT  •  ROUT  II) 

LET  FROLT  •  IRCLT 
LET  FATS  •  RTS ( I ) 

LET  FRTSC  •  RTSCII ) 

LET  IRIE  -  RIP  It  I 

LET  ERIE  •  IRIE 

LET  ITRIN  *  TAINI!)  ♦  IRIN 

LET  TAIM1 )  •  ITRIN 

LET  ITRCUT  «  TRCUT(I)  «  IPCUT 

LET  TRCLT(I)  •  ITRCUT 

LET  F TACIT  ■  ITRCUT 

LET  TOTAL  •  IRIN  ♦  IRCUT  ♦  1 

CALL  STOOEV  (TCTAL.  RIESU).  RIPSCfl).  *AVN.  •SKVNI 
IF  (IRCLT)  CO  (01.  LET  ENRTII)  -  0. 

CALI  STOOEV  (FRCUT.  FPT5 *  FRTSC.  «AVT.  ESTCVT) 

LET  FIATS  •  TRTS(I)  ♦  FATS 
LET  TRTS(I)  -  FTRTS 
LET  FTRTSO  •  SRTSO(I)  «  FRTSC 
LET  TRTSO(I)  •  FTRTSC 

CALL  STOOEV  (FTRflUT.  FTRTS*  FTRTSC.  RTRVT*  *TSTOVT ) 

IF  (ITRCUT)  CO  (01.  CC  TC  BO 
LET  TEIRT(I)  •  ARAR1  (EIRTIIt.  TRRRT (III 
LET  FTENRT  •  ARIN1  (PART (I).  TENRT (III 
LET  TRNRTII)  •  FTENRT 
€0  TC  BO 

BC  LET  FTENRT  •  0. 
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8C  CALL  TAB1  (I,  AVR,  STOVR,  AVT,  STuVT,  fAVT,  FTRNRT,  TSTOVT I 

C  . RESET  VARIABLES  FCR  REST  RIRCRT  RERICC. 


LET  AIRfl)  •  0 

LET  AOtTIII  •  0 

LET  RAXAfl)  *  1AIR 

LET  AIRRII )  «  I  RIP 

LET  RIRSII)  •  FAIR 

LET  RIRSOfl)  >  FAIR  *  FR>P 

LET  RTS(I)  -  0. 

LET  RTSCII)  >  0. 

LET  RXATtn  •  0. 

LET  RRRTII)  »  10000. 

ICC  LOOP 

RETL'RR 

END 

AIBFTC  STODEV 


SLBRCLTIRE  STPCEV  (TOTAL,  SUR*  SURSC,  AV6,  STCVI 
C  ......RCLTIRE  TC  CCRPtTE  A  REAR  ARC  STARO  AC  CEVIATIOR. 

IF  ( TOTAL!  LE  (0.),  GC  TC  50 
LET  AVG  -  SCR  /  TCTAL 

LET  STDV  •  SQA  i  I ARASI  (SURSC/TCTAL  -  AVCMVC,  0.1) 

GC  TC  100 

5C  LET  AVG  -  C. 

LET  STOV  ■  0. 

ICC  RETLAM 

ERO 

♦IBFTC  TABI 

REPORT  TABI  U,  AVR,  STOVR,  AVT,  STCVT,  T AVT ,  FTRRAT,  TSTOVT  ) 

S  SRC 

X 

X  SViTIR  ARRIVALS,  CER 

X  ARC  REPAIR 

X 

X 

X  RERAAACLES  IRTIRlRC  SFOR  IMS  RE 

X 

X  3  ERVICE AfLES  flRlRT  IRC  3R0R  THIS 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

ERO 

R  * 

I 

ARTURES,  IR-RROCESS, 

CYCLE  TIRES 

OATA  FCR  RERICO  ERDIRG  OAV 

ERORO 

R 100  TC  OATE  ••• 

AINU)  TRIM!) 

•A,  TC  OATE  AAA 
RCLTII)  TACCTI!) 


AVG 

RERAAACLES  IR  PROCESS 

REPAIR  TIRE 

AA.AA 

AVR 

IMS  PERIOD 

A. A# 
AVI 

TC  CATE 

A.AA 

TAVT 

X 

1 


I 

1 

I 


PER  IOC 


I 
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NLP8ER  IK  PROCESS  PR 

RIPUI 


PAA 

PIN 

STO  OEV 

•• 

• 

•  .•* 

PAARIII 

PINA (II 

STOVN 

♦  •.*• 

•.•• 

•  .•• 

PRRTIII 

PNRT(I) 

STOVT 

*•,•♦ 

*.♦* 

•  .♦• 

TPART(I) 

FTPNRT 

TSTOVT 

•  IBETC  CU2 

SliBACLTI  KE  CLT2 

C  . GENERATE  TABLE  2. 

LET  C  »  CLRPC 

OC  1C  5C(  ECR  EACH  ACTIV  I 

ACCtPtlATE  CSZAIll  IKTC  CCSIAU)  SINCE  TCSZA(I) 
LET  AVCSAU)  -  CCSZAdl  /  C 
IE  (AOCLTim  EC  (01.  GC  TC  50 

LET  AVTACIU  •  CECHA  (T  I  ACS  ( III  /  ElCAT  (  ACOUT I  1 1) 
5C  LCOP 

CALL  TAB2 

00  TC  IOC.  ECR  EACH  ACTIV  I 
LET  CCSZA ( I )  ■  0. 

LET  TIACS(I)  •  0. 

LET  ECSZA  >  GSZAdl 
LET  PXCSAITI  •  FCSZ A 
LET  PNCSAM)  •  ECSZA 
LET  AQCLTItl  •  C 
KC  LCOP 

RETLRK 

ENO 


♦  IBE1C  TAB2 

REPORT  TAB2 


A  ACT. 

A  NO. 

A  •• 

A  I 

A  FOR  EACH  ACTIV  I.  NlTH  IRXCSA(ilt  CR  (0.) 

EKC 

LCINC  EACTCRS 
1ST  COPPLETEO 
IN  QLELE 

AVG  OLEIC  TINE 
PIN  it)  bCRK-HCLRSI 
*.  «.« 

II  NNQSAIII  AVTACI 1 1 


ACTIVITY  OLE 
FOR  PER  100  J 
NO.  OF  REPS 

AVC  NAA 

M»  ••. 

AVOSA(I)  P AQSA ( 


A 

1 

1  4 


I 


A 


ENO 

•  IBETC  CCT3 


SLiRCL TIKE  CLT3 

C  . GENERATE  TABLE  3. 

C  . BEGIN  BY  BAITING  THE  HE  AC  INC. 

CALL  TBSMCD 
LET  S  •  SUM 

00  TC  ICO.  FOR  EACH  PTYPE  I.  KITH  (G?VS(tll  CR  (Cl 
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LET  SLP  -  0. 

0C  TC  2C «  FCR  EACH  ENTRY  CF  lISTdl 
....BRING  'CNKNG  (ENTRY) •  UP  TC  CATC  CEFCRE  ACCINC  IT  INTO  SUM. 
LET  C  •  CMRNG(ENTRY)  ♦  MR  IMG  (ENTRY)  *  I S-TMKNG(  ENTRY )  ) 

LET  CNXNG (ENTRY )  »  C 
LET  SUM  •  SUP  ♦  C 
REPEAT  10 

LET  LTIl  •  SUP  /  CCTY(I) 

CALL  TB3LIN  (It  LTIL) 

LET  CCTY(I)  -  0. 

....EMPTY  CLI  EACH  HIST*  SET. 

DC  TC  50 1  FCR  EACH  ENTRY  CE  LIST(I) 

REMCVE  ENTRY  FRCP  1 1ST  ( I ) 

DESTROY  ENTRY 
REPEAT  30 
LCCP 
RETURN 
ENO 

•IBFTC  TB3HE0 

REPORT  1B3HE0 

PERSONNEL 

bCRK  TIME 
AT  ACTIVITY 

PERS  LTIL  PAN-  PAN-  MAN-  MAN¬ 

URE  OTY  FACT  NC  HCURS  NC  HCURS  NC  FOURS  NO  HOURS 

ENC 


1C 


2C 


1C 


5C 

ICC 


LTILIZATION 


NO 


PAN- 

HCURS 


NC 


PAN- 

HCURS 


NC 


PAN- 

HOURS 


NO 


NAN- 

HOURS 


PAN- 

NC  HCURS 
ENC 

•  IBFTC  TB1LIM 

REPORT  IB3LIN  (I  ,  UTIL) 

«M  M  «,M 
I  I  QTYS(I)  LTIl 

5  FOR  EACH  ENTRY  CF  LIST(I),  PITH  ( FI  1ST (13)  NE  (0) 

I  M  IM.M  •  •  . .  •  *  ••*.♦• 

*  9(ACNC(CNTRY) , CECFMCURNCI ENTRY))) 

ENO 


A 

X 


XX 


ENC 

•  IBFTC  OUT  A 

SLBRCLTt NE  CUT* 

C  . GENERATE  TABLE  A. 

CALL  IBAMCC 
LET  CLR  -  CURP 

OC  TC  50 #  FCR  EACH  ETVPE  It  KITH  (CTVf ( I ) )  CR  (0) 
LET  TOTAL  •  CUR  •  FLOAT (CTVE ( 1 1 1 
LET  C  •  CINUS(I) 

LET  LIU  •  C  /  YCTAl 

LET  FI01E  •  TCIAL  -  C  -  CCCMN(f) 

CALL  TBAlIN  Alt  F IDLE  .  UT H  ) 

LET  NFAli(l)  -  0 


X 
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LET  COCWM  t )  »  0. 

LET  C  I KUS ( I )  -  0. 

5C  l COP 

RETURN 

END 

•  IBP  1C  TB4HED 

REPORT  TB4HE0 

¥ 

*  EGUIPRENT  T!PE 

X  TYPE  fill 4 NT  I  TV  IN  USE 

ERO 


TIL I2ATI0N 

0.  OF  LTILI2ATICN  ACTIVITY  NCS. 

ILLRES  FACTOR  WHERE  USED 

EMC 

•  IBFTC  TB4LIN 

REPORT  TB4LIN  II ,  FIOLE,  UTIL) 

X  M  M 

A  I  CTYE  ( I ) 

12  FOR  EACH  ITER  CF  SETH) 

A 

A 


ERO 


ciRusm 


rfailid  ltil 


EQUIPMENT  U 
ICLE  CORN  N 

TIME  TIME  PA 

A 

1 

1 


P  IDLE  COOWN! I ) 


A 

X 

AA 


•IBFTC  CUTS 


12IACRC!  ITERM 
ERO 


SUBROUTINE  CUTS 

C  . GENERATE  TABLE  5. 

LET  C  •  CURPO 

00  TC  SO »  PCR  EACH  SPTVP  I 
ACCUMULATE  CSPtl)  1RTC  CCSPII) 
LET  AVCSPII)  •  CCSPII)  /  C 
IF  fPULtm  EC  <01  •  GC  TC  SO 
LET  AVfSQil)  •  CECMRf TISCSII ) ) 
SC  LCOP 

CALL  TABS 

00  TC  IOC*  FOR  EACH  SPTVP  I 
LET  CQSPtl)  •  0. 

LET  TISCSII)  •  0. 

LET  FQSP  •  OSPII) 

LET  RMCSPHI  •  FCSP 
LET  RRQSPII)  •  FCSP 
LET  ORAROtl)  *  0 
LET  FUlIt)  •  0 
ICC  LCOP 

RETURN 

ENO 

•  IBFTC  TABS 

REPORT  TABS 


A 


A 


SINCE  TQSPII) 


/  PLCAT I  PILL  II)) 


QUEUE  INC  FACTORS  BY 
REPARABLE  QUEUE  LENGTHS 


CERANCS 

QUANTITY  THIS  PER  ICC 


V 

A 


CCPPCNENT 

TYPE 
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FOR  EACH  SPTYP  I  *  KITH 


* 

I 

(cmPtm 

END 


•  • 

QTVSP(I) 


••  * 

CHANG m  AVQSP 


CP  (0) 


CCPPOHERT  SPARES  TYPE 
ANO  TIRES  BY  CCPPCRERTS 


12 

11 


NO. 

OF  REPS  IN 

QUEUE 

AVG  QUEUE  TIRE 

A  VC 

PAX 

PIN 

(IX  VCRK-HCURS) 

1 

«.•• 

•  •. 

♦  . 

••«•• 

(I) 

PXQSPU  » 

PNCSP(I) 

AVTSC(I) 

END 

•  IBFTC  ERROR 

SUBRCLTINE  ERROR  f RAPE  I 
CALL  ERREPT  (RAPE) 

CALL  SNAP  (4HEACR) 

STOP 
ERO 

•IBFTC  ERREPT 

REPORT  ERREPT  (RAPE) 

X  JOB  TERRINATEO  AT  TtPE  ••.«•• 

X  RTIPE 

X 

ERO 

A#' 

HE 

VIATIOR ) 

ERO 

•IBFTC  SNAP 

SUBRCLTINE  SNAP  (LABEL) 

CALL  SRP1  (LABEL  I 

CALL  SRP2  (I).  FCR  EACH  SFCP  I 

RETURN 

ENO 

SRP1  ( LABE  t * 


BECAUSE  CF  ERROR  IN  SUBROUTINE  *•• 

NA 

(ACBRE 


IBFTC  SNP1 
REPORT 


SNAPSHOT  PIQUE 


PURE  STIPE  PTIPI 

•,•••••  «.«••••  «,*•••• 

RTIHE  STIPE  PTIPI 

SHOPS  -  PIN  RUT  TRIN  TROUT  PAIR  PINA 

•  •«•«•• 

I  R|N(t)  ROUT(f)  TRIN(I)  TROUT (II 


ENCSF 
».••••• 
ENCSF 
RIP  RIPS 
• 

PAIR  (I  I  HtNR(l) 


ENCPO 

*.••#«* 

ENCPO 

RIPSO 

R IP ( IS 


CL 

• 

CL 

AT 

•  • 

A IPS(  I 


FOR  EACH  SHOP  I 
ACTIVITIES  — 

• 

I 

POR  EACH  ACTIV  I* 
IBUIPHf NT 


CSIA 
•  •• 

C  S  2  A  ( I ) 

kith  (piosaiid 


TYPES  -  NFAIl 

•  • 

t  NFAIL ( 1 1 

FOR  EACH  ETVPE  I,  KITH  (CTYfll)l 
SPARE  PART  TYPES  —  BRAND 

•  • 

I  BRANCH  I 


Nt 


M 


CCS2A 

CCS1AII) 
(0.1 
I  NOSE 

INUSE ( I ) 
10) 

PIU 

• 

P ILL  1 1 ) 


TOSIA 

•.«•••• 

TQSlA(l) 


CINUS 

CINUS(I) 

QSP 

••Pin 


TIRUS 

•.••••• 

TINLSI 

COSP 

COSP 
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X  FCR  EACH  SPTVP  I,  KITH  ICTYSPUH  HE  (0 1 
X 


S If D  AT  MAI  2 


LABEL 


RPC 

ClRP  ETIPE 

CURSH 

CURAC 

CURSP 

.MMI  1, 

•  •••4  t.MIM  4 

4 

4 

2 

RPC 

CLRP  ET1PE 

CURSH 

CUBIC 

CURSP 

S 

RISC 

TRIS 

TRTSC 

PART 

PHRT  TPART 

TPNRT 

.♦* 

•  4*. 

44  44.44 

4444.44 

4.44 

4.44  4.44 

4.44 

)  RfPSQ(t)  RTStl)  Rtscm  TRTSU)  TRTSCUI  PART  ( I )  PNRTII1 

TPART  1 1 1  TPNRTU) 

PXQSA 

PNCSA 

T I  ACS 

ICOUT 

X 

♦  . 

* 

4.4 

4.44 

4 

PXQSA(I) 

PNCSA ( 1 ) 

TIACStn 

ACCUT(t) 

00HN 

CCCfcN 

TCCHH 

X 

M 

4. 44444 

n 

OCWH  (  1 )  CCCWMI) 

TOCHMI) 

ICSP 

pxcsp 

PHCSP 

TISCS 

X 

MMII 

4.4 

4.44 

III 

TQSPIlt 

PXQSPtll 

PHCSP ( 1 1 

Tiscsm 

X 

EHC 

X 

•IBFTC  5NP2 

REPORT 

SNP2  IISHCPI 

14 

FCR  EACH  REP  IH  LCACIISHCP) 

A 

PEPS  IH  SHCP  4 

X 

I  SHCP 

X 

IOHC 

44444  44444 

44444 

44444 

44444 

44444 

4444 

X 

MltOHClPEPM 

X 

BTIHE 

4.444  4.444 

4.444 

4.444 

4.444 

4.444 

4.44 

X 

IMBTIPttREP!) 

X 

QTIHE 

4.444  4.444 

4.444 

4.444 

4.444 

4  .444 

4.44 

X 

1MQTIPE  (REP)) 

X 

QFLAG 

4  4 

4 

4 

4 

4 

X 

1 4 (CFL AC  t REP )l 

EHC 

X 

X 

• 

HIM 

44444  44444 

44444 

44444 

44444 

1 

X 

• 

l,*M 

4.444  4.444 

4.444 

4.444 

4.444 

4  .444 

• 

4.444 

4.444  4.444 

4.444 

4.444 

4.444 

4  .444 

* 

• 

• 

4  4 

4 

4 

4 

4 

2 

EHC 


1 
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6  3 

l  S  Z 


11 

29 

l 

Z 

3 

1C 

3 

'►OP 

3C 

0 

31 

39 

1 

z 

13 

3C 

13 

4CTIV 

4C 

R 

41 

45 

1 

Z 

4 

4C 

4 

PTtPE 

4 6 

R 

47 

40 

l 

Z 

3 

46 

1 

E77PE 

49 

Z 

5C 

57 

l 

Z 

3 

46 

50 

59 

Z 

6C 

R 

01 

71 

1 

Z 

5 

60 

5 

SP17P 

72 

7« 

Z 

70 

R 

77 

l 

R 

4 

76 

4 

PPI7P 

1  2 

2  3 

4(12) 

70 

R 

21 

79 

1 

R 

21 

7« 

$►  IF  1 

C1CC1CC1CCKC10C1CCCC 

?HU) 

0C 

2 

Z 

4 

4C  21  70 

SI 

R 

e.c 

<►1.1  ) 

IIHSF 

02 

R 

03 

R 

7.C 

PFPOC 

1 

MSI 
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X.  NRTS  PROGRAM 


Tha  NRTS  (not  reparable  this  station)  data  display  shows  tha 
raparablas  shipped  off  base  for  rapalr.  It  displays  tha  pi pa line 
tlae  distribution  for  tha  raparablas.  This  program  la  usad  primarily 
as  an  Input  to  tha  Dapot  Transportation  Simulator  whan  tha  simulators 
are  operated  separately. 

An  example  of  tha  output  display  Is  shown  In  Fig.  24.  The 
reparable  ID  number  la  listed  In  column  1,  followed  by  tha  quantity 
that  war  shipped  to  the  depot  during  the  period.  The  minimum,  average, 
and  maximum  pipeline  times  are  next  displayed,  followed  by  tha  standard 
deviation  of  the  distribution.  At  with  other  reports,  the  reporting 
period  and  base  number  are  initialised  values. 

INITIALIZATION 

The  NRTS  Program  requires  the  initialisation  of  16  variables.  Only 
three,  however,  require  values.  The  variable  description  and  initial¬ 
isation  table  (Table  7)  contains  the  information  required  to  initialise 
the  report  program.  An  example  data  deck  listing  follows  the  "Output 
Program"  listing. 

OUTPUT  PROGRAM 

This  is  a  supplement  to  tha  Ranch  Repair  Analysis  Program,  having 
a  vary  similar  logic  (only  much  simpler)  ,  and  using  tha  sues  input  tape 
made  up  of  12-word  label  records.  The  output  is  a  report  (every  period) 
on  tha  passage  of  raparablas  through  tha  NRTS  cycle. 

Only  those  records  with  IDD  -  6000  or  4900  are  of  concern  to  this 
program;  ail  others  are  skipped.  As  before,  all  records  with  base 
number  not  equal  to  tha  system  attribute  BASE  are  skipped 

Because  no  ACCUMULATE  statements  sra  us«d  ,  this  program  dona  not 
uaa  tha  autosMtlcally  defined  system  variable  TIME,  nor  doaa  it  need 
a  CLOCK  subroutine- 

An  ERROR  routine  la  present,  and  ia  called  in  caaa  of  an  arror 
condition  from  aavaral  places  in  tha  program. 
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NATS  DATA 


•ASC 

1  PERIOD 

ENOING  DAY 

30. 000 

(UP 

MO 

QUANTITY 

NATS 

NATS 

KIN 

DEtAY  TIKE 
AVG 

MAX 

STD  DEV 

1 

3 

10. 546 

13-658 

17.140 

3.  126 

2 

12 

5.  018 

1.  181 

14.263 

2.578 

3 

10 

2.046 

2.521 

3.661 

0.471 

5 

5 

5.167 

8.536 

11.761 

2.224 

6 

1 

3.  136 

3.  138 

3.  138 

0.000 

Fig.  24 


Table  7 

VARIABLE  DESCRIPTION  AND  INITIALIZATION: 
NRTS 
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PERMANENT  VARIABLES 

TIM  -  current  simulated  time,  as  read  from  the  current  label  record. 

PTIME  -  the  time  at  the  beginning  of  the  current  report  period. 

ENDPD  -  the  time  at  which  the  current  report  period  will  end 
CURPD  -  the  length  of  the  report  period  that  has  just  ended. 

BASE  -  the  base  number  for  this  run. 

PEROD  -  the  length  of  a  report  period. 

RPTYP  -  reparable  type;  a  permanent  entity  with  the  following  attributes: 
FLOAD  -  first  of  the  set  called  LOAD. 

LLOAD  -  last  of  the  set  called  LOAD. 

TOTAL  -  the  total  number  of  reparables  of  this  type  completing  the 
NRTS  cycle  in  this  period. 

SUM  -  the  sun  of  their  NRTS  times. 

SUMSQ  -  the  sum-square  of  their  NRTS  times. 

AVG  -  the  mean  NRTS  time  for  this  type  of  reparable  during  this 
period. 

STDV  -  the  standard  deviation  of  NRTS  time  for  this  type  of 
reparable. 

MAX  -  the  maximum  NRTS  time  for  this  type  of  reparable  during 
this  period. 

TEMPORARY  VARIABLES 

REP  -  reparable  part;  a  temporary  entity  with  the  following  attributes; 
1DN0  -  I.D.  number;  a  number  obtained  from  the  label  record  that 
uniquely  identifies  this  reparable. 

BT1ME  -  the  time  at  which  this  reparable  entered  the  NRTS  cycle. 
PLOAD  -  predecessor  in  LOAD. 

SLOAD  -  successor  in  LOAD. 


SETS 

LOAD  -  a  singly-subscripted  set,  ranked  on  BTIME. 


owner:  RPTYP 
member:  REP 
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♦  T  HEP 

♦ 


T  IDNQ  1 
T  BTIME  2 
T  PLQAO  3 
f  SLOAD  4 


* IBFTC  MAIN 


1TIM 
2PTIME 
3ENOPD 
4CURPO 
5BASE 
6PERQ0 
7RPTYP  E 
RELOAD  1 
9LL0AD  I 
10T07AL  | 
11  SUM  l 
123UMSQ  1 
13AVG  1 
14STDV  1 
15MAX  1 
16MIN  l 


LOADl  ♦  BUME  L 


C 

X  10 


♦IBFTC 


MAIN  ROUTINE 

. INITIAL I2E  ENDPO. 

LET  ENOPD  -  PEROD 

*  . INITIALI2E  EACH  MINIMUM  TO  A  HIGH  NUMBER* 

LET  MINI  I )  *  10C00. ,  FOR  EACH  RPTYP  I 
. RfAO  A  LABEL  RECORD. 

READ  (91  X,IDD,K,K,K,  INBASE*  NO,K,K , I AODR ,  I  ND!C,T 
LET  TIM  *  T 

. IF  THERE  IS  A  OETAIL  RECORD,  SKIP  IT, 

IF  UNOIC.EQ.il  READ  (91  JUNE 
IF  ( IDO)  NE  (31,  GO  TO  30 

. .  0F  SIMULATION.  (100-3.)  TERMINATE  AFTER  PRINTING  THE 

.  LAST  REPORT. 

LET  ENDPO  »  TIM 
CALL  ENDPRO 
STOP 

•  ••«.. IGNORE  THIS  RECORD  UNLESS  INBASE  »  RASE. 

IF  (INBASE)  NE  (BASE),  GO  TO  10 

. TEST  FOR  ENO  OF  PERIOD. 

IF  (TIM)  GR  CENOPO),  CALL  ENDPRO 

. .  ™IS  BECORO  IS  RELEVANT  (IDO  •  6000  OR  4900),  CALL  A 

. fe  SUBROUTINE  TO  PROCESS  IT.  OTHERWISE  SKIP  (T. 

IF  (IDO)  NE  (6000),  GO  TO  50 
CALL  START  (NO,  IACOR) 

GO  TO  10 

IF  (100)  NE  (4900),  GO  TO  10 
CALL  FINISH  (NO,  IAOOR) 

GO  TO  10 
ENO 

ENOPRO 

SUBROUTINE  ENOPRO 
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£  . THIS  ROUTINE  IS  CALLED  AT  THE  END  OF  EACH  PERIOD, 

LET  f  -  ENDPD 

LET  CURPD  ■  T  -  PTIHE 

LET  PTIME  »  T 

C  . OUTPUT  NOTHING  IF  NO  TINE  HAS  ELAPSEO  SINCE  ENG  OF  PREVIOUS 

C  .  PERIOD. 

IF  (CURPD)  EQ  (0.).  GO  TO  100 
DO  TO  30,  FOR  EACH  RFTYP  I 
LET  FTOT  «  TOTAL (I) 

CALL  STOOEV  (FTOT.  SUH(I),  SUHSQ(I) ,  ♦AVGU),  ♦STDVU)) 

IF  (MINI!))  EQ  (  10000.  1.  LET  PINd'  >  0. 

30  LOOP 

CALL  REPORT 

C  . RESET  ALL  RUNNING  TOTALS. 

00  TO  50,  FOR  EACH  RPTVP  I 
LEi  MINI!)  «  100C0, 

LET  MAX(I)  -  0. 


LET  CUH( 1 )  -  0. 
LET  SUNSQ(I)  -  0. 
LET  TOTAL! I)  «  0 


50  LOOP 

LET  ENOPO  «  ENOPO  ♦  PEROO 
100  RETURN 

END 

♦IBFTC  START 

SUBROUTINE  START  (NO,  ID) 

C  . THIS  ROUTINE  IS  CALLED  FOP  IDD  «  6000. 

C  . A  REP  HAS  JUS!  ENTERED  THE  NRTS  CYCLE. 


IF  (NO)  GR  (NRPTYP),  CALL  ERROR  (4HSTAR) 
CREATE  REP 

LET  BTIME(REP)  ®  TIH 
LET  IDNO(REP)  *  10 
FILE  REP  IN  LOAD (NO) 

RETURN 

END 

♦IBFTC  FINISH 


SUBROUTINE  FINISH  (NO,  ID) 

C  . THIS  ROUTINE  IS  CALLED  FOR  IDO  •  4900. 

C  . . A  REP  HAS  JUST  LEFT  THE  NRTS  CYCLE. 

IF  (NO)  GR  (NRPTYP),  CALL  ERROR  (4HFINI) 

C  . FIND  THE  REP*?  TAKE  STATISTICS,  ANO  DESTROY  IT. 

FIND  FIRST,  F OP  EACH  REP  OF  LOAO(NO),  WITH  (lONO(REP))  EQ 
•  (ID),  WHERE  REP,  IF  NONE,  CALL  ERROR  (4HFIN2) 


RENOVE  REP  FRON  LOAD! NO) 

LET  T  -  TIN  -  BTINE(REP) 

LET  NAX(NO)  •  ANAXK  T,NAX(NO) ) 
LET  NIN(NO)  -  ANINK  T,NIN(NO) ) 
LET  SUN(NO)  *  SUN(NO)  ♦  T 
LET  SUNSQ(NO)  -  SUMSQ(NO)  ♦  T*T 
LET  TOTAL(NO)  -  TOYAL(NO)  ♦  I 
DESTROY  REP 
RETURN 
ENO 

•IBFTC  STOOEV 


K  X 
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SURROUTINE  STOOEV  (TOT,  S  SC,  AVE?  STD) 

C  . ROUTINE  TO  TAKE  A  NEAN  AND  STANDARD  DFVI AT  I CN» 

IF  (TOT)  LE  (0.),  GO  TO  50 
LET  AVE  «  S  /  TOT 

LET  STD  «  $QRT(ANAX1( SQ/TOT  -  AVE  *AVE »  0.)) 

GO  TO  ICO 

50  LET  AVE  *  0. 

LET  STD  *  0. 

100  RETURN 

END 


♦IBFTc  REPORT 

REPORT  REPORT 


X 

X 

X 

X 

X 


X 


REP  QUANTITY 
NO  NRTS 

*  ** 

I  TCTAL(I) 

FOR  EACH  RPTYP  I,  WITH  I  TOTAL ( X ) )  NE  (0) 

END 


DATA 

♦  PERIOD  ENOING  DAY 
EASE 

CELAV  TINE 

AVG  NAX 

*♦.*#* 

AVG ( I )  NAX ( I  ) 


**.*«* 

ENDPD 

STO  DEV 

6TDV(  I  » 


NRTS 

BASE 

NRTS 

PIN 

*.**♦ 

NIN(I) 


X 

1 

1 


1 


X 


END 

•  IPFTC  ERROR 

SUBROUTINE  ERROR  (NANE) 

CALL  ERREPT  (NANE) 

STOP 

END 

•IBFTC  ERREPT 

REP0R7  ERREPT  INANE) 

X  JOB  TERMINATED  AT  TINE  •  BECAUSE  OF  ERROR  IN  SUBROUTINE 

X  TIN  NA 

X  (APBRf 

END 


AP» 

NE 

VIATION) 


ENO 


X 


1 

5.0 

?0 


RASE 

PEROr 

NRPTYP 
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XI.  DEPOT  TRANSPORTATION  CAPABILITY 

The  Depot  Transportation  Capability  Output  Program  is  a  two- 
part  program  displaying  the  cargo  delivered  to  each  base(s)  and  the 
utilization  of  each  transport  vehicle. 

CARGO 

The  Cargo  Report  (see  Fig.  25)  displays  the  quantity  of  cargo 
moved  throughout  the  simulated  period.  The  quantity  is  specified  in 
terms  of  weight,  volume,  and  units  for  each  type  of  cargo.  Note  the 
separate  specification  of  both  the  quantity  of  cargo  that  is  loaded 
aboa  some  carrier  (TP)  and  the  quantity  of  cargo  delivered  (TD) 
by  a  carrier.  The  same  distinction  is  made  for  base  deliveries 
(column  4)  and  for  the  depot  (column  5).  Column  6  specifies  the  quan¬ 
tity  of  each  cargo  type  that  is  in  process  (in  transit)  as  of  the  report 
t  ime. 

INITIALIZATION 

The  cargo  output  program  requires  the  user  to  initialize  eighteen 
variables.  Table  8  and  its  accompanying  text  will  facilitate  use  of 
this  program,  and  help  the  user  understand  the  conceptual  basis  for 
the  resultant  report. 

OUTPUT  PROGRAM 

The  input  to  the  cargo  output  program  is  the  tape  generated  by 
the  Depot  Transportation  Simulation  Program.  The  tape  is  read  from 
logical  unit  No.  9. 

This  input  tape  consists  of  twelve-word  records  in  the  following 

form,- 

word  1  -  irrelevant. 

Word  2  -  a  four-digit  number  identifying  the  occurrence  represented 
by  this  record. 

Words  3  through  5  -  irrelevant . 

Word  b  -  the  base  number. 
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Words  7  through  10  -  the  content  of  these  words  varies  with  the 

Individual  values  of  Word  2. 

Word  11  -  Irrelevant. 

Word  12  -  current  simulated  time. 

When  a  record  is  read  from  tape  9,  the  value  of  CNT  Is  compared 
with  current  simulated  time  (Word  12);  if  simulated  time  equals  or  ex¬ 
ceeds  the  value  of  COT,  steps  are  taken  to  issue  a  report.  Thus,  CNT 
is  used  to  control  the  report  interval.  If  COT  exceeds  the  value  of 
simulated  time,  the  current  record's  information  Is  processed  as  follows. 

Word  6  is  checked  to  determine  if  the  record  contains  information 
about  a  relevant  base.  There  is  provision  in  the  cargo  output  program  for 
reporting  on  all,  or  selected,  bases,  in  any  order  desired  bv  the  user. 

For  all  relevant  bases,  Word  2  is  compared  with  internal  four-digit 
codes  in  order  to  select  only  records  that  are  "interesting"  to  the  pro¬ 
gram.  At  this  point,  the  program  transfers  control  to  segments  unique 
to  each  code,  which  will  in  turn  process  the  individual  data  records. 

Whan  Word  ?  is  found  to  equal  5000,  the  end  of  simulation  has  been 
reached.  A  final  report  is  Issued,  and  the  cargo  output  program  termi¬ 
nates. 

PERMANENT  VARIABLES 

The  following  list  is  complete  except  for  attributes  denoting  first- 
or  laat-of-set. 

COT  -  the  report  interval,  specified  by  the  user. 

BASE  -  a  permanent  entity  representing  the  number  of  bases  in  the  simu¬ 
lation. 

NRPS  -  the  total  number  of  unique  reparables  involved  in  the  simulation. 
TT#N  -  sum  of  the  tonnage  arriving  at  each  base. 

TV#L  -  sum  of  the  volume  errlvlng  st  each  base. 

TUNT  -  sum  of  the  number  of  units  arriving  at  each  base. 

TOP#  -  sum  of  the  number  of  base  units  arriving  st  each  base  (base  unit 

•  reparable  that  originates  st  a  bass  rather  than  a  depot). 

TBAS  -  sum  of  the  number  of  depot  units  arriving  at  each  bass. 

LNT  -  a  debugging  aid. 

WHT  -  a  list  of  walghta  for  individual  reparable  types. 

V#t  -  a  llat  of  voluaws  for  individual  reparable  typer 
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TEMPORARY  VARIABLES 

REP  -  a  temporary  entity  with  the  following  attributes: 

BFLG  -  a  system  flag  indicating  that  the  reparable  is  a  base 
unit . 

SYSTA  -  the  reparable  type  number  (as  opposed  to  serial  number, 
which  is  a  machine  address). 

WATE  -  weight  of  the  particular  reparable. 

VOLU  -  volume  of  the  particular  reparable. 

RPORT  -  a  temporary  entity  with  the  following  attributes: 

IUNIT  -  a  running  sum  of  units  delivered  to  each  base.  It  is 
reset  to  zero  after  each  report  interval. 

TfilTlSN  -  a  running  sum  of  total  weight  delivered  to  each  base. 

It  is  reset  to  zero  after  each  report  interval. 

T0V0L  -  a  si  milar  running  sum  for  total  volume. 

DP(#U  -  a  similar  running  sum  for  total  depot  units. 

BASU  -  a  similar  running  sum  for  total  base  units. 

INPR(J  -  a  running  su:..  of  "in-process"  reparables  (total  units  - 
(sum  of  depot  and  base  units)). 

SETS 

BREP  -  a  sirtgly-subscr  fpted  FIR#  set  consisting  of  all  temporary  REP* 
attached  to  each  base. 

Owner:  BASE 

Member:  REP 

RPQ  -  a  do'.jt>ly-sub»crf pted  FIF®  set  consisting  of  all  temporary  RptfSTs 
filed  by  base  and  reparable  type. 

Ow.wrs:  MTS,  BASE 

Htaber:  Uh#RT 

BSET  -  »  FIP0  sat,  with  no  subscripts,  which  contains  the  nu*bers  ot 
those  beset  for  which  a  report  1$  to  be  issued. 

OwRer  t  SYSTBi 

H*aber:  klSI 
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1  KFAH  FROM  10,  lDS,KOD,MY,KPV  ,  |H,|  LA,  ILB,  IlC 
FORMA  T(  ‘i  1 6,  S6,  H ,  S6,  M6  ,S<> ,  1 1> ,  Sfj  ,  J  ?  ,  S6  *03  .•>  I 
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ICO  L  f:  T  ON  T  *  ON  I  ♦  C.NT 


. I TH, I UT , TYMfc 
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not  pro)Rr  ri^t,  process  rpccrp. 


2C0  r  O'C  f  I  ^  S  T  , 
IF  (  IPS)  F  J 
IF  ( US)  Ft! 
If  I  IIJS)  CU 
ir  {  IDS)  *•' U 
GO  TO  1 


FOP  FACH  K  |N  BSF  T, 
C  5  C  0  0 1  *  G  0  I(i  SOU 
(504:' ),GO  TO  55^ 

I  507  j  ,.,0  TO  *50 
(S5C *).C.n  tr  550 


WFTH  no  FCIIUI, 


If  NONE,  uo  T ( 


. ics  =  sroo,  end  of  simulation. 

5C0  CALL  RFPCHTIGNT) 

STOP 


55G  CRFATF  "I  P 

STPRF  WHH  ILP  )  IN  WAIF  IRFP) 

S TUP '  VOL(ILR)  IN  VOLU(PFP) 

STOP!  f L rt  IN  SVSTAIPEP) 

IF  (IPS)  Nr  (5C6U,  Lt  T  HFLG(RLP)  =  1 
»  IL  f  PrP  IN  FPU  P  {  IF) 

r,n  n  1 

END 

IRFIC  HL 0* 2 

SUHH i Mj  T  I N F  (UPORTI(iSU) 


. (.01 1  F  C  T  P  AM  APT  TF  c  S« 

. INCRFMtNT  *  THIS  Pl  Kinp'  PA  I  A. 

1PI  on  TO  1  'it  row  F  ACM  IH  I  K  f- Sf  T 
nr  TO  1,  FOR  J  =  <  I  )  (NRPS) 

CRFA  TF  «PPR  T  CALLFP  LIST 

1  IHi  TO  3,  F0«  FACH  K|  P  IN  HHt  PI  IF)  ,  WITH  ISYSTA(R'P))  F  U  IJ> 
LFT  lUNIT(LIST)  =  I  UNIT! LI  ST)  ♦  1 

LET  TO  TON  (  L  !  S  T  )  *  IPTllNILlST)  ♦  WATF  IRF  PI 

LFT  TOVPL  (LIST)  =  TOVOL(UST)  ♦  vrLU(«*P) 

if ipflgirep)  irgi  n  ,  o.o  to  2 

LFT  PPfllJl  LIST)  =  PP()i;(  LIST)  ♦  1 
GP  TO  3 

2  LFT  PA  SUC  L 1ST)  =  RASUILIST)  4  l 

3  REPEAT  1 

. COMPUTE  'IN  PROCESS'  TOTAL  FOR  Th|S  REPORT  PFRIGP. 

LIT  KP'JQC  =  IUNITILIST)  -  (RASUILIST)  4  OPOIJ  (LIST)) 

STORE  KPKMC  IN  INPPOILIST) 

. FILE  REPORT  IN  ..OFUF  0)  Rf  PORTS  HY  BASF  ANC  SYSTEM. 


f  IL  ^  l  I  ST  IN  RPOI  J,  IP.  ) 


INCREMENT  'TO  DA  IE*  COUNTERS. 


o  o  o  o  o  o  o  o  o  o  r*  o 


LET  TTONI J,  IB  I 
LET  TVOUJ.IBI 
LET  TUNTIJtH*) 
LET  TOPO( J»  IB  I 
LET  TBASIJ.IBI 


TTONU.IPJ  ♦ 
TVOL(J,IB)  4 
TUN  T ( J« I Bf  ♦ 
TDPfM  J  » 1 8  >  4 
THASlJ.IR)  ♦ 


TDTON ( L  T  ST  I 
TGVCLI LIST) 
IUHITILIST  ) 
DPOUJLIST) 
BASUI  LI  ST l 


PROCEED  10  RLPS  AT  NEXT  BASF. QUEUE. 


V  l  OOP 


PROCURE  NEXT  RASE. 


10  REPEAT  101 

...iHERf  IS  NUN  A  REPORT  FOR  EACH  REP.  BY  RASE. 


CALI  REPORT  GENERATOR  PRELUDE. 

CALL  FORMIGNT) 

C 

C . HOUSEKETP  BEFORE  RETURNING  TO  SUPERVISOR. 

C 

301  00  TO  30,  FOR  EACH  |R  IN  RSET 
C 

22  IF  BREPUBI  IS  EMPTY,  GO  TO  23 
REMOVE  FIRST  J  FROM  BREPUBI 
OFSTROY  REP  CALLED  J 

Gn  TO  22 

23  UO  TO  2A,  FOR  J  *  (IHNRPS) 

IF  RPOIJ.IBl  IS  EMPTY,  GO  TO  2* 

REMOVE  FIRST  RPORT  FROM  RPQ(J,IB> 

DESTROY  RPORT 
2A  LOOP 
30  REPEAT  301 
RETURN 
END 

*  IBFTC  BLOK 3 

SUBROUTINE  E0RMIGNT1 
C 

C... ..PREPARE  TO  PRINT  HEADING. 

C 

LFT  KNT  *  0 
LET  MARK*  0 

1  00  TO  6,  FOR  EACH  IB  IN  BSET 

2  CALL  FORMHI IB,GNT) 

LFT  KNT  *  KNT  ♦  10 
IFIMARK  )E0( 1  I,  GO  TO  A 

C 

C . PRINT  DATA  RECORD. 

C 

00  TO  *,  FOR  K  •  till NRPSI 

3  00  TO  A,  FDR  EACH  J  IN  RPO(K,IB> 
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CALL  FORMR  (  K  *  TOTONl  Jl  ,  T  TON  (  K  ,  !  8 1  ,  I  UNIT!  J I  ,  TUNT  (K,  I  B  ) .  TOVOL  (  J  > « 

1 TVOL ( Kf IB),DPOU( J),TDPO(K,!B) ,RASU(J) ,TBAS ( K, ! B I , 1 NPROI J I) 

LH  MARK  =  0 

LET  KNT  =  KNT  ♦  1 

IF  (KNT)  Fg  ( 551  ,  GO  TO  7 

4  REPEAT  3 

5  LOOP 

6  KEPFAT  l 
RETURN 

7  l FT  KNT  =  C 
LF]  MARK  =  I 

GO  TO  2 
FND 

*  IBFTC  FORMH 

RFPORT  FORMH ( IB,GNT ) 

X  CARGO  REPORT  FOR  RASE 

X 

X  TONS  UNITS 

X  CARGO  DELIVERED  DFLIVFRED 

X  TYPf  TP  TD  TP  TO 

END 

X 

*  PERIOD  ENDING  *.♦*  9 

IB  GNI 

VOLUME  BASF  DEPOT 

DELIVEKFD  UNITS  UNITS  IN 

TP  Tl  TP  TO  TP  TD  PROCESS  ? 

END 

*  IPFTC  FORMR 

RFPORT  FORMR ( I A , I B , I C , I D . I E ♦ I F , I G , L . N, ! C,  IP  I 
X  ♦  *  *  *  • 

X  IA  IB  IC  ID  IE 

END 


*  *  *  •  *  * 

IF  10  L  M  N  10 

END 

♦ENTRY  MAIN 
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IP 
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mk 

The  UTIL  (utilization)  program  describes  the  Cargo  Carrier 
Utilization  for  the  simulation.  The  utilization  of  each  vehicle  (by 
ID  number)  for  each  vehicle  type  is  listed.  Figure  26  is  an  example 
of  the  information  contained  in  this  portion  of  the  report. 

For  each  vehicle,  col.  3  lists  the  time  the  vehicle  was  available 
for  service,  col.  4  the  time  lost  due  to  maintenance,  and  col.  3  the 
time  involved  in  loading  the  vehicle.  Idle  time,  listed  in  col.  6, 
is  the  sum  of  maintenance  downtime  and  loading  time.  The  utilization 
factor  is  the  sum  of  maintenance  time,  loading  time,  and  intransit 
time,  divided  by  the  total  simulated  time  to  date. 

INITIALIZATION 

The  UTIL  output  program  requires  the  user  to  initialize  nine 
variables.  Table  9  and  its  accompanying  text  will  facilitate  the 
use  of  the  program  and  help  the  user  understand  the  conceptual  basis 
for  the  resultant  report. 

OUTPUT  PROGRAM 

The  input  to  UTIL  is  the  tape  generated  by  the  Depot  Transportation 
Simulation  program.  The  tape  is  read  from  logical  unit  No.  9. 

This  input  tape  consists  of  twelve-word  records  in  the  following 
formst: 

Word  1  -  Irrelevant. 

Word  2  -  a  four-digit  number  Identifying  the  occurrence  represented 
by  this  record. 

Words  3  through  S  -  irreltvant. 

Word  6  -  the  base  mmbsr. 

Words  7  through  10  -  the  content  of  these  words  varies  with  the 

individual  values  of  Word  2. 

Word  11  -  irrelevant. 

Word  12  -  current  simulated  time. 

When  a  record  is  read  from  tape  9,  the  value  of  GNT  is  compared 
with  current  simulated  time  (Word  12);  if  simulated  time  equals  or 
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exceeds  the  velue  of  Gif I,  steps  are  taken  to  issue  a  report.  Thus, 

GUT  is  used  to  control  the  report  interval.  If  GMT  exceeds  the  value 
of  simulated  tine,  the  current  record's  information  is  processed  as 
follows. 

Word  2  is  coopered  with  internal  four-digit  codes  in  order  to 
select,  for  further  processing,  only  records  that  are  relevant  to 
this  program's  objective.  Once  such  a  record  is  identified,  program 
control  is  transferred  to  one  of  several  unique  segments  corresponding 
to  individual  four-digit  codes. 

When  Word  2  is  found  to  equal  5000,  the  end  of  simulation  has 
been  reached.  A  final  report  1*  issued,  and  UTIL  terminates. 

PERMANENT  VARIABLES 

CNT  -  the  report  interval,  specified  by  the  user. 

NCARS  -  total  number  of  vehicles  in  the  simulation. 

FBUSQ  -  machine  address  representation  of  first  member  of  the  set 
BUSQ. 

LBUSQ  -  the  last  member  of  BUSQ. 

FLSTQ  -  machine  address  representation  of  first  member  of  the  set 
LSTQ. 

LLSTQ  -  the  last  member  of  LSTQ. 

FVSET,  LVSET  -  first  and  last  members  of  the  set  VSET. 

SVSET  -  a  list  of  successive  members  of  VSET,  starting  with  the 
succeasor  to  member  FVSET. 

TEMPORARY  VARIABLES 

BUS  -  a  temporary  entity  with  the  following  attributes: 

TYPE  -  an  integer  specifying  the  particular  kind  of  vehicle. 

SRN0  -  a  machine  address  identifying  an  individual  member  of  any 
one  TYPE. 

MAJ0R  -  a  running  sum,  for  this  vehicle,  of  major  maintenance 
elapaed  time. 

MIN0R  -  a  running  sum,  for  this  vehicle,  of  minor  maintenance 

elapsed  time. 


-’51- 


FLITE  -  a  running  sum  of  total  trawl  titrn*  accrued  by  this 
vehicle. 

I4A D  -  a  running  aun  of  time  taken  to  load  tnia  vehicle. 

T501  -  T509  -  theae  represent  the  ainulated  times  relative  to 
unique  eventa  aaaoclated  with  the  vehicle  during 
the  s'raulat'm.  They  are  used  to  compute  the  four 
precc  mg  attributaa. 

LIST  -  a  temporary  entity  with  the  following  attributes: 

MNTDT  -  total  di  -mtime  due  '  t  maintenance  for  this  vehicle,  this 
report  perio1. 

L0DIM  -  total  time  spent  in  loading  this  vehicle  during  this 
period, 

IDLE  -  vehicle  idle  time  during  this  report  period. 

UTL  -  utility  factor  for  an  individual  vehicle  during  this 
report  period. 

THISL  -  machine  ID  of  this  particular  report. 

S£IS 

BUSQ  -  a  alngly-aubacrlpted  FIF0  aet  consisting  of  ell  temporary 
entltlee  called  Bl JS  (the  vehicles). 

Owner:  SYSTEM 
Member:  BUS 

LSTQ  -  a  slngly-subacrlpted  F1F0  aet  consisting  of  all  temporary 
entitles  called  LIST  (the  individual  reports). 

Owner:  SYSTEM 
Member:  LIST 
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* i n f f c  main 
MAIN 
C 


ICNr  C  FC 

2NCARS  0  l 

JFHUSC  1  I 

41PUSC  l  I 

NFLSTw  i  I 

6LLST0  1  I 

7FVSF  I  0  I 

HLVStT  0  I 

9SVSET  l  f 

T  SUUSO  21/?  I 
r  TYPF  2?/2  I 
T  SKNO  31/2  I 
T  major  4  r 

T  MINOR  b  F 

r  m  if  6  r 

T  I  OAI)  7  F 

I  T SC l  8  F 

T  TSO?  11  f 

r  TbC'4  12  ! 

T  TbtM  13 

r  f  L  S  0  2 1 4  I 

T  HjC.C  lb  F 

PUSQ1  * 

T  VNTnr  ?  F 

f  ILDTM  3  F 

T  IOL1  4  ^ 

T  U IL  b  F 

T  SLSTQ  6  I 

f  TH|  ,i  7  f 

Lsrgi  • 


•..UTILITY  FACTOR  OUTPUT  PROGRAM.  SF T  -  UP 
ITT  GNT  =  CNT 

. . 

CALL  UPKUMUNTI 
L  6  T  GNT  -  G,N  |  4  CNT 


2  IF  (IDS)  HJ  IbCCiil,  GO  TO  b 

»F  (IDS)  f  0  t  SOI 0| ,  go  TO  10 

!T  I  IDS)  M,  1  bC2f>),  GO  TO  *>l 

IF  I  IOSI  f  u  <bOV)|  ,  GO  TO  30 

IF  Ill'S)  c 0  ISC4J),  GO  TO  40 
IF  I  IDS)  fy  (SCbO),  (,f)  TO  bO 
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IF 

1  IDS) 

FQ 

I 5090) , 

GO 

TO 

60 

IF 

I  IDS) 

EU 

(5200) , 

GO 

TO 

70 

IF 

I  IDS) 

FO 

I  5300) , 

GO 

TO 

00 

GO  TO  l 

...ORDER  PARAMETERS. 

00  CREATE  f!U$  CALLED  K 
STORE  ILA  IN  TYPEIK) 

STORE  ITR  IN  SRNOIK) 

FILE  K  IN  BUSQULA) 

GO  TO  l 

70  FIND  FIRST,  FOR  EACH  K  IN  BUSCIILA),  WITH  l SRNCI K )) EOI IT R ) ,  IF 
INONF ,  GO  TO  1 

I F  (  T5091K )  )  L  S(  GN T-CN T I  ,LET  FUGE  I  K)  =FUGE(K)* I ( GNT-CNT  l-TWMKl  ) 

LET  MAJOR ( K )  =  MAJOR  IK)  ♦  I TYME  -  T509IK)) 

GO  TO  1 

7*0  no  TO  69,  FOR  J  =  (I)INCARS) 

FIND  FIRST,  FOR  EACH  K  IN  BUSQIJ).  WITH  I SRNC IK  I ) FC I  I TR ) •  IF  NOME, 
l GO  TO  69 

STORE  TYME  IN  T5C9IK) 

GO  TO  l 
69  IOOP 

go  rr  i 

SC  no  Til  AN,  FOR  J  =  (  1 )  (NCARS) 

FIND  FIRST,  FOR  EACH  K  IN  HUSO(J)*  W I TH ( SRNO ( K ) ) F u  (ITR),  IT  NONE , 
IGO  TO  49 

1 F I  TSCAIK  )  )L  SIGN  T-CN  T)  ,LFT  F  UE,C  I  K )  *F  UGE  I K )  ♦  l  (GNT-CM  J-lNOAU  1  ) 

LET  FLITKK)  *  FLITfc(K)  ♦  I  TYME  -  T504IK)) 

GO  TO  l 

AS  LOOP 
(.0  TO  1 

AO  DO  TO  39,  FOR  J  =  I l) INCARS) 

FIND  FI’RST, FOR  FACH  K  IN  BUSQIJ),  WITH  (SRNCIK))  F  C  I  ITR),  IT  NONE, 
IGO  TO  IS 

STORF  T YMF  IN  T6U4IK) 

IF! TS02(K))EU(0.)«  GO  TO  A1 

I  F(  T5C?(K))LS(  GNT-CN  T )  ,LFT  FUGE IK) *FUGE (K) ♦( IGNT-CNT  )-T50?(K>  ) 

LET  l UADI K ) sLOAO l K ) ♦ I T5041 K) -T50?  t  K) ) 

CO  TO  A? 

A  l  IF! TSOI  IK ) ) L SIGN T-CN T) , LE  T  FUGE l K ) *FUGfc I K) ♦ I IGNT-CNT )-T  SO  1  IK  )  ) 

LET  IOADIK)  =  0. 

A 2  IF  I TSC21K) )F0I0.) ,  L^  T  MI  NOR  IK)  =  M I  NOR  IK)  ♦  (T5U41K)  -  TSOllKl) 
IFIT*'»0?IK))  NF  (0.),  LFT  T502IK)  *  0. 

go  to  l 

39  LOOP 
GO  TO  l 
30  GO  TO  20 

20  DO  T(  19,  FO'l  J  =  IDINCARS) 

FINE;  FIRST,  M'R  FACH  K  IN  BUSCI  J)  ,  WITH  I  SHNE I K ) ) El I  IT R )  •  IF  NC1NF  , 

IGO  TO  19 

IF(  Tr'Cl  (K  III  SI  GNT-CNT)  ,LFT  F UGE I K) =FUGE I K ) ♦ ( I GNT-CNT  l-TSOl  IK  )  ) 


n  n  o  n  e~.  n 
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LEI  M I  NOR ( K )  «  M i NOR  I A I  ♦  I  TYNE  -  T501(K)| 

STORE  TYNE  IN  T502IM 
GO  TO  1 
19  LOOP 
GO  TO  1 

1C  DO  TO  9,  FOR  J  *  (1MNCARSI 

FIND  FIRST,  FOR  EACH  K  IN  BUSGt J» ♦  WITH  (SRNO(K) IFC(  ITRI,  IF  NONE, 
IGO  TO  9 

STORF  TYNF  IN  TSGl(K) 

GO  TO  1 
9  LOOP 

GO  TO  1 

S  CALL  UPKtPIGNT) 

STOP 

FNO 

• IBFTC  BLOKS 

SUBROUTINE  UPREPIGNT1 

. COLLECT  PARAMETERS. 

1  00  TO  FOR  EACH  IV  IN  VSET 

2  DO  TO  3,  FOR  EACH  K  IN  BUSQ(IV) 

CREATE  L 1  ST  CALLEO  L 
LET  THISHLJ  *  SRNOIKI 

LET  MNTDTILI  *  MNTOTIll  ♦  I  MAJOR  I K )  ♦  M I  NCR  IK ) I 
L FT  LOOTNILI  *  LOOTNILl  ♦  LOAOIKI 

l  FT  IOLL«L)-IOLEIU*(CNT-I  (  F  L  I  TE  ( K )  ♦MNTOT  IUyLODTMU  )  l-FUGEIK)  )) 
LET  UTLILJ  «  UTLILI  ♦  ICNT-I  OLE  (LH/  CNT 
FILE  L  IN  LSTOUVI 

3  RFPFAT  i 
A  REPEAT  l 

t*U.  FORME  ON  Tl 

. HOUSFKF.fP  BEFORE  AF  TURNING  TO  SUPERVISOR. 

5  00  TO  A,  FOR  EACH  IV  IN  iSEI 
61  00  TO  6,  FOR  EACH  8US  *N  wSQElV) 

LET  MAjORIttUSI  *  0. 

LET  NINORIBUST  *  0. 

LET  FUTEliUSI  «  0. 

LFT  LOAOI SUSt  »  0. 

LET  FUGEI8US*  *  0. 

6  REPEAT  fet 

?  IF  LSTCUVl  IS  EMPTY*  GO  TO  3 
REMOVE  FIRST  LIST  FROM  (sTSUVi 
DESTROY  LIST 
GO  TO  7 

8  REPEAT  S 
RETURN 
END 

•  IBFTC  BLOK 6 

SUBROUTINE  FORMtGNTI 
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C . PREPARE  rn  PRINT  HFADING. 

C 

LFT  KNT  =  0 
LFT  MARK*  0 

1  DO  TO  5,  FOR  EACH  IV  IN  VSFT 

2  CALL  FORMHI I V»GNT) 

LFT  KNT  =  KNT  ♦  10 

IF  I  MARK lEU l 1) ,G0  TO  4 
C 

C . PRINT  OATA  RECORD. 

C 

3  DO  TO  4,  FOR  EACH  L  IN  LSTQUV) 

IF  ( UTL  I L  )  )  EQI-O.),  LET  UTLIU  *  0. 

LET  AVL  *  CNT  -  MNTOT(L) 

CALL  FOKMRI I  V , TH I SL ( L) , 4VL , MNTD Tt L) , LOOT M I L ) , I DLE I L ) . UTL 1 1  )  ) 

LET  MARK  *  0 

LFT  KNT  *  KNT  ♦  1 

IF  C KNT I  FQ  155).  GO  TO  6 

4  REPEAT  3 

5  REPEAT  1 
RETURN 

6  LET  KNT  *  0 
LET  MARK*  1 
GO  TO  2 
END 

*  IRFTC  FORMH 

REPORT  FORMHI IV, GNTI 

X  UTILIZATION  OF  VEHICLE  TYPE 

X 

X  VEHICLE  VEHICLE  TIME  MAINTE 

X  TYPF  ID  AVAILABLE  DOWNT 

END 

X 


*  FOR  PER  100  ENDING  *.  ** 

IV  GNT 

NANCE  LOADING  IDLE  UTILIZATION 

IME  TIME  TIME  FACTOR 

ENO 

♦IBETC  FORMR 

REPORT  FORMR I  I  V , L , A l , A2 , A3 , A4, A5  ) 

X  *  *  *.** 

X  IV  L  Al 

ENO 


**  *.**  A, •* 

A3  A4 

END 

•ENTRY  MAIN 

1  9 

1  0  K 

2  OR 

3  fc  l  7  4  2 

7  OR 


♦  .*• 
A5 


4 

1 

1 


4 
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XII.  r  ^OT  MAINTENANCE  CAPABILITY 

The  Depot  Maintenance  Capability  program  is  used  to  display  the 

4 

outputs  from  the  DR&O  Simulator.  The  report  consists  of  five  parts: 
the  input  to  each  depot,  its  output  and  the  reparable  repair  times  for 
the  period(s)  of  time  selected;  queueing  and  utilization  factors  for 
each  resource  group  (personnel  and  equipment  groups);  queueing  factors 
for  each  component  spare  part  type;  stock  levels,  corr-onent  spare 
repair  times,  stockouts,  and  demands  for  each  component  spare  part; 
and  detailed  information  for  each  activity  about  its  performance 
during  each  period  of  simulation. 

An  example  of  the  output  display  is  shown  in  Figs.  27  to  31. 

Figure  27  is  a  display  of  depot  statistics  showing  the  system  (or 
Unit  or  item)  arrivals  and  departures,  reparables  in  process,  and 
repair  cycle  times.  A  separate  display  is  presented  for  each  depot. 

The  example  display  is  for  depot  No.  3. 

The  first  line  of  data  shows  the  time  at  wnich  the  statistics  were 
taken.  Notice  that  the  report  is  for  day  ending  14.000.  Since 
"time"  began  at  time  0.000  in  the  simulations  and  the  report  is 
initialized  for  seven-day  periods  the  fourteenth  day  will  end  at 
time  14.000  (not  14.999),  The  next  line  entry  shows  the  number  of 
reparables  that  entered  the  depot  (15)  for  the  period  and  the  sum 
of  all  reparables  entering  the  depot  (30)  as  of  the  report  period. 

The  third  line  entry  is  the  serviceables  departing  the  depot 
(returned  to  serviceable  stock)  (8),  during  the  period,  and  the  sum 
of  all  items  processed  to  date  (20).  The  difference  between  the 
arrivals  and  departures  is  presented  as  the  number  in  process  (10). 

The  next  line  displays  a  distribution  of  the  reparables  in  process. 
The  average  time  in  process  (for  the  twenty  that  were  processed)  is 
4.75  days,  the  maximum  time  was  10  days,  and  the  minimum  1  day.  The 
standard  deviation  for  the  distribution  is  2.37. 

The  repair  time  distribution  is  presented  both  for  the  period 
(just  7  days)  and  accumulated  for  the  fourteen  days. 

Figure  28  displays  the  activity  Queueing  Factors  for  the  period. 
Column  1  1 1st 8  the  activities  in  sequence.  Columns  2,  3,  and  4  list  the 


distribution  of  the  quantity  of  reparables  processed  by  each  activity 
for  the  period.  Column  5  lists  the  average  time  that  the  reparables 
spend  In  queue  behind  each  activity  awaiting  some  resource.  The 
average  queue  time  Is  displayed  as  work  time;  l.e.,  off-shift  time 
is  not  included. 

Figure  29  Is  the  Personnel  Utilization  report.  For  each  per¬ 
sonnel  type,  listed  in  col.  1 t  the  sum  of  all  personnel  on  duty  for 
all  shifts  of  the  period  (of  course,  the  period  may  be  only  one  shift) 
Is  presented  in  col.  2.  The  utilization  factor,  which  is  the  time 
actually  engaged  in  a  process  divided  by  the  total  duty  time  available, 
is  presented  in  col.  3  for  each  personnel  type.  The  balance  of  the 
display  is  devoted  to  the  man-hours  used  at  each  activity  for  each 
personnel  type.  For  example,  personnel  type  2  worked  at  activities 
5,  10,  and  11,  and  a  total  of  93.25  man-hours  were  used  during  the 
simulation  period  (seven  days). 

Figure  30  is  the  Equipment  Utilization  report.  By  equipment 
type,  listed  in  col.  1,  the  quantity  is  listed  in  col.  2;  cols.  3,  4, 
and  5  list  the  time  the  equipment  was  used,  the  idle  time,  and  the 
downtime  (ell  in  decimal-days).  Note  that  the  summation  of  these 
three  columns  is  equal  to  14  equipment  days  for  Equipment  types  1  and 
2,  and  21  equipment  days  for  Equipment  type  3.  This  is  the  total  time 
available  for  the  equipment.  Off-shift  time  is  not  deducted. 

Column  6  is  a  count  of  the  number  of  times  the  depot  equipment 
failed  during  the  period  (in  this  example,  7  days).  Column  7  is  the 
utilisation  factor  for  the  equipment,  computed  by  dividing  the  total 
time  available  (equipment  days)  into  the  time  in  use.  Column  8  lists 
the  activities  where  the  equipment  was  used. 

Figure  31  is  the  display  of  the  Queueing  factors  for  each  com¬ 
ponent  spare  part.  Column  1  lists  the  spare  part  ID  number.  Column  2 
lists  the  quantity  or  authorised  stock  level  of  each  spare  part. 

Column  3  lists  the  number  of  demands  for  each  spare  part  during  the 
period. 

Columns  4,  5,  and  6  list  the  distribution  of  the  quantity  of 
unfilled  demands  (average,  maximum,  and  minimum)  for  each  spare  part 
type.  Column  7  liats  the  average  queue  time-- the  average  time  required 
to  fill  the  demand. 
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DEPOT  I 

SYSTEM  ARRIVALS.  DEPARTURES.  IN-PROCESS. 

•0  REPAIR  CYCLE  TIMES 

DATA  FOR  PERIOD  EN0IN6  DAY  14.000 

REPAR ABIES  ENTERING  DEPOT  THIS  PERIOD  IS,  TO  OATE  30 

SERVICEABLES  DEPARTING  OEPOT  THIS  PERIOD  t,  TO  OATE  20 

NUMBER  IN  PROCESS  10 


AVG 

MAX 

MIN 

STD  DEV 

REPARABLES  IN  PROCESS 

4.75 

10 

1 

2.37 

REPAIR  TIME 

THIS  PERIOD 

l.M 

3.03 

0.04 

0.40 

TO  DATE 

1.37 

3.03 

O.M 

0.47 

Fig. 

27 

ACTIVITY  QUEUEING  FACTORS 
FOR  PCRIOO  JUST  COMPLETED 


ACT. 

NO. 

NO.  OF  REPS 

AVG  MAX 

IN  QUEUE 

MIN 

AVG  QUEUE  TIME 
UN  WORK-HOURS) 

1 

0. 33 

3. 

0. 

0.00 

2 

0.05 

3. 

0. 

0.43 

3 

0.00 

1. 

0. 

0.00 

4 

0.05 

1. 

0. 

0.00 

9 

1.10 

5. 

0. 

0.74 

4 

0.01 

1. 

0. 

o.ot 

7 

1.10 

1. 

0. 

1.50 

a 

0.00 

1. 

0. 

0.00 

V 

4.15 

10. 

0. 

7.44 

10 

0.27 

3. 

0. 

0.24 

It 

0.00 

1. 

0. 

0.00 

It 

0.00 

2. 

0. 

0.55 

11 

0.01 

1. 

0. 

0.01 

Fl».  28 
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WORK  TIM 
AT  ACTIVITY 


PERS 

UTIL 

MAN¬ 

MAN¬ 

TYPE 

QTY  FACT 

NO 

HOURS 

NO 

HOURS 

NO 

1 

42 

0.09 

1 

4.41 

2 

11.82 

3 

2 

36 

0.32 

5 

20.40 

10 

64.10 

11 

3 

48 

0.27 

4 

32.03 

5 

40.79 

10 

4 

30 

0.40 

6 

32.22 

7 

24.18 

8 

Fig. 


PERSONNEL  UTILIZATKS 

HAN-  MAN-  MAN-  MAN¬ 

HOURS  NO  HOURS  NO  HOURS  NO  HOURS 

4.83  12  3.01  13  5. 79 

8.75 
32.05 

22.85  9  15.63 


EQUIPMENT  UTILIZATION 


EQUIPMENT 

TIME 

IDLE 

DOWN 

NO.  OF 

UTILIZATION 

ACTIVITY  NOS. 

TYPE 

QUANTITY 

IN  USE 

TIME 

TIME 

FAILURES 

FACTOR 

WHERE  USED 

1 

2 

0.67 

13.15 

0.18 

3 

0.048 

A 

2 

2 

1.26 

12.35 

0.39 

11 

0.090 

% 

10 

3 

3 

1.70 

19.29 

0.01 

1 

0.081 

5 

Fig.  30 


QUEUE  I NS  FACTORS  DY  COMPONENT  SPARES  TYPE 


COMPONENT 

TYPE 


REPARAOLE  QUEUE  LENSTHS  AND  TIMES  IV  COMPONENTS 

NO.  OF  REPS  IN  QUEUE 

DEMANDS  AVG  QUEUE  TIME 


QUANTITY 

THIS  PERIOO 

AVG 

MAX 

MIN 

(IN  WORK-HOURS  I 

10 

>6 

0.00 

1. 

0. 

0.00 

10 

20 

0.86 

3. 

0. 

0.00 

8 

21 

4.10 

9. 

0. 

0.00 

It 

18 

0.00 

1. 

0. 

0.00 

11 

2T 

12.79 

21. 

6. 

000 

Fig.  31 
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I  INITIALIZATION 

Tho  Depot  Capability  report  program  requires  the  initialization 
of  33  variables.  Only  12  require  values,  however.  The  Depot  Capability 
Variable  Description  and  Initialization  Table  (Table  10)  contains 
the  information  required  to  initialize  the  report  program.  An  example 
initialization  data  deck  listing  follows  the  "Output  Program"  listing. 

OUTPUT  PROGRAM 

The  input  to  this  program  is  the  binary  tape  generated  by  the 
DK&O  Simulation  Program;  this  tape  is  read  from  logical  unit  No.  9. 

The  input  tape  consists  of  12-word  label  records  with  the 
following  format: 

Word  1  -  irrelevant. 

Word  2  -  IDD  -  a  four-digit  number  identifying  the  "event"  or 
"occurrence"  represented  by  this  record. 

Word  3,  4,  5  -  irrelevant. 

Word  6  -  INBASE  -  the  depot  number. 

Words  7,  8,  9,  10  -  IV1,  IV2,  IV3,  LADDR.  These  fields  are  used 
to  store  various  items  of  information,  depending  on  the  value  of  IDD. 

Word  11  -  INDIC  -  1  if  the  next  record  is  a  detail  record  (to  be 
skipped),  0  otherwise. 

Word  12  -  RTIME  -  current  simulated  time. 

When  a  label  record  is  read,  the  value  of  INBASE  is  compared  with 
the  constant  permanent  attribute  called  BASE;  if  they  are  unequal,  the 
record  is  skipped.  (Thus  it  would  require  n  runs  of  this  analysis 
program  to  process  all  the  data  from  an  n-base  simulation  run,  each 
time  changing  the  value  of  BASE). 

If  the  new  RTIME  is  greater  than  the  previous  one,  subroutine 
CLOCK  is  called  to  check  for  the  end  of  the  operating  shift  and  the 
end  of  the  report  period.  If  the  report  period  has  ended,  subroutine 
ENDPRD  la  called  .  '  generate  the  reports.  Subroutine  CLOCK  also 
updates  TIME,  which  is  the  actual  work  tlaw  elapsed  since  the  beginning  of 
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simulation.  (The  automatically  defined  system  variable  TUB  Is  used, 

In  order  to  take  advantage  of  the  ACCUMULATE  statement.) 

Then  the  appropriate  subroutine  la  called  to  process  the  label 
record.  To  each  significant  IDD  number,  there  corresponds  a  subroutine: 
e.g.,  subroutine  NEXTAC  is  called  whenever  IDD  equals  4400.  If  IDD 
does  not  match  any  of  the  significant  numbers,  it  is  skipped. 

If  IDD  ■  3,  the  end  of  simulation  has  been  reached;  the  program 
terminates  after  writing  the  last  set  of  reports. 

Error  tests  intended  for  the  debugging  phase  have  been  left  in 
the  program,  sprinkled  throughout.  If  an  error  is  encountered,  this 
means  that  something  is  amiss  in  this  program,  in  the  simulation  pro* 
gram,  or  in  the  initialization  deck.  Subroutine  ERROR  is  called,  which 
terminates  after  outputting  the  current  value  of  RTIME  and  a  four-letter 
ab!  viation  identifying  the  routine  in  which  the  error  was  detected. 

For  instance,  "REA2"  refers  to  the  second  error  condition  in  subroutine 
READY. 

Subroutine  SNAP  outputs  a  "snapshot"  of  all  permanent  and  temporary 
variables,  as  an  aid  to  debugging.  Ihe  user  may  insert,  at  any  point, 
a  call  to  SNAP  with  an  identifier  of  one  to  four  letters  and/or  digits; 
e.g.,  CALL  SNAP  (4HNAME).  In  this  example,  "NAME"  is  the  identifier. 

In  the  current  version  of  the  program,  ERROR  calls  SNAP  before  terminating. 

Thla  list  is  complete  except  for  attributes  denoting  flrst-of-set 
or  last-of-set,  and  attributes  used  only  to  keep  track  of  time  in  an 
ACCUMULATE  statement  such  as  TQSZA  (these  always  have  names  beginning 
with  "T"). 

RTIME  -  current  simulated  time;  it  is  obtai  ,-d  from  each  label  record 
as  it  is  read  in. 

STIME  *  the  "RT1MB"  of  the  previous  label  record. 

TIME  -  (a  variable  automatically  defined  by  the  system)  *  number  of 
workdays  elapsed  since  the  beginning  of  simulation.  Suppose 
there  are  40  work-hours  in  a  week.  Then  if  RTIME  *7.0,  TUB 
will  be  equal  to  1.6667  or  1-2/3  (which  is  40  divided  by  24). 
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TOW  *  th«  value  of  "TDB"  at  the  end  of  the  previous  report  period. 
SN)SH  -  the  ’ItTlW"  at  which  the  current  shift  will  end. 

EMDPD  -  the  "RTIME"  at  which  the  current  period  will  end. 

ETIW  -  the  value  of  "RTIME"  at  the  end  of  the  previous  report  period. 
CURPD  -  the  length  in  workdays  (using  "TIME")  of  the  period  just 
completed. 

CURP  -  the  length  in  simulated  time  (using  "RTXME")  of  the  period  just 
completed. 

CURSH  -  number  of  current  shift  (on  a  weakly  cycle). 

CURAC  -  activity  uumber  associated  with  current  label  record. 

CURSP  -  spare  part  number  associated  with  current  label  record. 

CUUEF  -  I.D.  number  of  REP  associated  with  current  label  record. 

SHOP  -  permanent  entity,  of  which  the  following  are  attributes: 

RIN  -  number  of  raps  entering  this  depot  this  period. 

ROUT  -  number  of  reps  leaving  depot  this  period. 

TRIN  -  total  number  of  reps  in  depot  (since  the  beginning  of 
sloulation). 

TROUT  >  total  number  of  reps  that  have  left  this  depot. 

MAXR  -  maximum  number  of  rape  in  depot  this  period. 

MI  Ml  -  minimum  number  of  reps  this  depot  this  period. 

RXP  -  number  of  reps  currently  in  process  in  this  depot. 

RIPS  *  e  running  sum  of  all  the  values  that  RXP  has  assumad 
during  this  period. 

RIP9Q  -  a  running  sum-square  total  of  all  the  values  that  RIP 

haa  assumad  during  this  period.  E.g.,  If  RIP  has  had  the 
values  2,  3,  4,  3,  2  In  this  period,  then  RIPS  Is 
2+3  +  4  +  3  +  2or  14,  and  RIP8Q  la  22  ♦  32  «•  42  ♦  32  ♦  22 
or  42. 

RTS  -  sum  of  the  repair  times  of  all  reps  leaving  depot  this  period. 
RTSQ  -  sum  of  squares  of  repair  times  of  all  reps  leaving  depot 
this  period. 

ItlS  *  sum  of  RTS  for  all  periods  to  date. 
niSQ  -  sum  of  RTSQ  for  all  periods  to  date. 

WKT  -  mui mum  repair  time  for  depot  this  period. 
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MNRT  -  tiinlmum  repair  time  for  depot  thla  period. 

TMXRT  -  maximum  repair  time  for  depot,  ILL  periods. 

TMNRT  -  mlnimua  repair  tlass  for  depot,  all  perioda . 

ACT1V  -  activity;  a  permanent  entity,  of  which  the  following  are 
attrlbutea : 

QSZA  -  current  queue  alee  at  thla  activity. 

CQSZA  -  cumulative  total  of  QSZA,  thla  period. 

MXQSA  -  minimum  value  of  QSZA,  this  period. 

MNQSA  -  minimum  value  of  QSZA,  this  period. 

TIAQS  •  "time  In  activity  queue,  summed;"  the  total  time,  In 
workdaya,  that  repa  have  spent  In  the  queue  for  this 
activity. 

AVQSA  -  average  queue  alxe  at  this  activity. 

AVTAQ  -  average  time  in  queue  for  this  activity. 

AQOUT  -  number  of  repa  that  have  left  the  queue  of  this  activity 
during  thla  period. 

PTYPE  -  personnel  type;  a  permanent  entity,  of  which  the  following  are 
attributes: 

QTYS  -  total  number  of  thla  type  of  personnel. 

CQTY  -  number  of  man-day*  for  thla  personnel  type  for  this  period. 
ETYPE  -  equipment  type;  a  permanent  entity  with  the  following  attributes! 
QTYE  -  total  quantity  of  this  equipment  type. 

HFAIL  -  number  of  failures  of  this  type  of  squlpamnt  during  this 
period. 

INUSE  -  quantity  of  this  equipment  type  currently  In  use. 

CINUS  •  cumulative  total  of  XMDSK,  this  period. 

DOW  -  quantity  of  this  type  of  equipment  that  la  currently  down. 
CDOUN  -  cumulative  total  of  DOWN,  thla  period. 

SPTYP  -  spare  part  type;  a  permanent  entity  with  the  following 
attributes : 

QfTYSP  -  quantity  of  spares  of  this  type  available  at  beginning 
of  simulation. 

MAM)  -  number  of  demands  for  this  type  of  pert  during  this  period. 
PILL  -  number  of  times  that  eu  v.  a  demand  was  filled. 

(fit  -  queue  else  for  this  type  of  part. 


CQSP  -  cumulative  total  of  QSP,  thia  period. 

MXQSP  -  maximum  value  of  QSP,  this  period. 

MNQSP  -  minimum  value  of  QSP,  thia  period  - 

TISQS  -  total  time,  in  work  days,  that  reps  have  spent  in  the 
queue  for  this  type  of  part . 

AVQSP  -  average  value  of  QSP,  this  period. 

AVTSQ  -  average  time  in  queue  for  this  type  of  spare  part. 

RPTYP  -  rep  type;  a  permanent  entity  with  the  following  attribute: 

SHPNO  -  number  of  the  depot  to  which  this  type  of  rep  belongs. 

SHIFT  -  a  permanent  entity  with  the  following  attribute: 

SCHED  -  1  if  this  is  a  work  shift;  0  if  this  is  an  off  shift. 

QTYPR  -  a  permanent  attribute  with  two  subscripts; 
first  subscript:  PTYPE 
second  subscript:  SHIFT 

meaning:  the  quantity  of  personnel  of  this  type,  on  duty  during 
this  shift. 

LENSH  -  the  length  of  a  shift. 

PEROD  -  the  length  of  a  report  period. 

BASE  -  the  number  of  the  depot  for  this  run;  all  label  records  per¬ 
taining  to  any  other  depot  will  be  ignored. 

TEMPORARY  VARIABLES 

REP  -  a  temporary  entity  with  the  following  attributes: 

QTIME  -  the  value  of  ’TIME"  when  the  rep  entered  the  queue  for 
an  activity. 

BTIME  -  the  value  of  "RTIME"  when  the  rep  entered  the  system. 

IDNO  -  the  1,0.  number  of  the  rep:  a  number  obtained  from  the 

label  record,  representing  the  absolute  storage  address  of 
the  rep  in  the  simulation  run. 

QFLAG  -  s  number  which  Is  equal  to  sero  unless  the  rep  is  in  the 
queue  for  an  activity,  in  which  case  QFLAG  equals  the 
number  of  that  activity. 

SFLAG  -  equal  to  sero  unless  rep  i  in  the  queue  for  «  spare  part. 

In  which  case  SFLAG  equals  the  number  of  that  type  of  part . 
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SPTIM  -  the  value  of  ''TIME"  when  the  rep  entered  the  queue  for 
a  spare  part. 

PLOAD,  SLOAD,  PACTQ,  SAC1Q  -  attributes  associated  with  the  sets 
LOAD  and  ACTQ . 

DUMMY  -  a  temporary  entity  whose  purpose  is  to  save  information  to  be 
output  in  Fig.  28.  It  has  two  attributes: 

ACNO  -  the  number  of  an  activity  at  which  this  type  of  equipamnt 
is  to  be  used. 

SSET  -  successor  in  the  set  called  "SET." 

ENTRY  -  a  temporary  entity  having  to  do  with  the  utilization  of 
personnel  at  different  activities.  Its  attributes  are: 

ACNO  -  the  number  of  an  activity  at  which  this  type  of  personnel 
is  used. 

WRING  -  number  of  personnel  of  this  type  working  at  activity 
whose  number  equals  ACNO. 

CWKMG  -  cumulative  total  of  WRING,  this  period. 

TWKNG  -  the  value  of  "RTIME"  when  CWKNG  was  last  updated. 

PI, 1ST,  SLIST  -  attributes  associated  with  the  set  called  "LIST." 


SETS 

LOAD  •  a  set  with  one  subscript,  ranked  on  BTIME. 

Owner:  SHOP 
Member:  REP 

The  LOAD  of  each  SHOP  consists  of  all  the  reps  that  are  currently 
In  process  in  that  shop. 

ACTQ  •  a  set  with  one  subscript,  ranked  on  BTIME. 

Owner:  ACTIV 
Member:  REP 

ACTQ  is  the  queue  of  all  reps  currently  waiting  at  ar  activity. 
SET  -  a  FIFO  set  with  one  subscript. 

Owner:  ET YPE 

Member:  HftftfY 

SET  is  the  set  of  all  activities  at  which  this  type  of  equipment 
can  bs  used.  This  information  is  to  be  output  in  Fig.  30. 


LIST  -  a  act  with  one  subscript,  ranked  on  ACNO. 

Owner:  FTYPE 
Member:  ENTRY 

LIST  has  one  ENTRY  for  each  activity  at  which  this  type  of 
personnel  has  been  used  during  this  report  period . 


Standard  Names  for  Local  Variables 


IACNO 

always 

IEQNO 

always 

IPERNO 

always 

ISFNO 

always 

IREPNO 

always 

ID  or  IDREP 

always 

IQTY 

always 

means  activity  number 
means  equipment  number 
means  personnel  number 
means  spare  part  number 
means  rep  number 
means  I.D.  number  of  rep 
means  quantity  or  number 
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T  REP  8 


T  0UMPY2 


T  ENTRY8 


OEPOT  CAPABILITY  OUTPUT  PROCRAP 


T  CTIPE  1  F 
T  B1IPE  2  F 
T  IDNC  3  ! 

T  CFLAG  41/2  ( 
T  SPLAG  42/2  I 
T  SPIff  5 
T  SLOAO  6 
T  SACTO  7 
T  PLOAD  81/2 
T  PACIU  82/2 


LOAC1 

ACTQl 


♦RTIPE  L 
•8TIPE  L 


'  SSET  2 


SET  1  • 


T  ACNO 
!  kKING 
T  CPKPG 
T  ThKNG 
T  PLIST 
T  SLfST 


I 

F 

f 

P 

I 

I 


1RTIPE 
2  ST  I  PE 
3PTIPE 
4EACSP 
4ENCPC 
6CURPC 
7CURSH 
8CURAC 
9CURSP 
10SHCP 
1 1FLCAD 
12 l LC AC 
1  JR  IP 
14RCUI 
15TRIA 
16TRCUT 
17PAXR 
18PIPR 
19RIP 
20RIPS 
21RIPSC 
22RTS 
23MTSC 
24TRTS 
29TR7SC 
26PXRT 
27PWRT 
28TPXRI 


F 

F 

F 

F 

F 

F 


F 

F 

F 

F 

F 

f 

F 

F 

F 


LIST l  *ACNC  L 


MM 
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I 


♦ 


I 


29TPHRT  1 

F 

30ACTIV  E 

31CSZA  l 

F 

32CCS/A  1 

F 

33HS2A  l 

F 

34PXCSA  1 

F 

3SPACSA  1 

F 

36 T I ACS  l 

F 

32AVCSA  1 

F 

36AVTAC  1 

F 

37FACTC  l 

I 

38LACTC  1 

1 

39ACCUT  I 

1 

40PTVPE  E 

41FLIST  1 

I 

42LLIST  1 

1 

43CTVS  1 

1 

44CCTV  1 

F 

45TCTY  i 

F 

46ETYPE  E 

47CTYE  1 

I 

48HFAII  1 

I 

SOINUSE  l 

F 

51CINUS  1 

F 

52T  IMJS  1 

F 

530CMK  1 

F 

*4C0CbK  1 

F 

55T0CWN  1 

F 

56FSET  I 

1 

571SET  1 

1 

60SPIVP  E 

61CTYSP  I 

I 

62DPAM2  l 

I 

63FILL  1 

1 

64FSPC  l 

I 

65LSPC  l 

I 

66CSP  I 

F 

67CCSP  K 

F 

68TQSP  i 

F 

69PXCSP  i 

F 

70PNCSP  1 

F 

71TISCS  l 

F 

67AVGSP  1 

F 

71AYTSC  1 

F 

73CUAEP 

I 

74CUPP 

F 

7SETIPE 

F 

76RPTYP  E 

77SMP8C  1 

1C 

/•SHIFT  E 

79SCHE0  l 

1C 

80CTYPP  2 

F 

BILEfcSN 

FC 

•2PEPC0 

FC 

83BASE 

IC 

l 
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•  IBFTC  PAIN 


C 

X  1C 

c 

X 

c 


c 


c 


5C 

52 

56 

56 

58 

60 

62 


PAIN  ROUTINE 

CALL  PREllP 

READ  A  LABEL  RECCRO 

READ  (9)  K,ID0,K,K,K,!NBASE»!Vl,IV2,IV3,IACCR,  INCIC.T 
LET  RTIPE  *  T 

IF  THERE  IS  A  DETAIL  RECCRO,  SKIP  CVER  IT 
IF  (INDIC.EQ.l)  READ  (9)  JUNK 

TERMINATE  IF  AN  ENDS!*  RECCRC  (WITH  ICC*3)  IS  ENCOUNTERED 

IF  ( IOD )  NE  (31.  GO  TO  30 

CALL  CLOCK 

LET  ENDPO  »  RIME 

CALL  ENOPRO 

STOP 

SKIP  THIS  RECCRO  IF  IT  OCES  ACT  PERTAIN  TC  THE  RIGHT  BASE 
IF  UNBASE)  NE  (BASE).  GC  TC  10 
IF  (RTIPE)  GR  (STIPE),  CALL  CLOCK 


«.ALL  THE 

APPROPRIATE  ROUTINE  FCR  THIS  ICO  NUPBE 

IF 

(  100) 

EQ 

( 70C0 )  , 

GC 

TC 

50 

IF 

(  IOD) 

EC 

(7002)  , 

GC 

TC 

52 

IF 

(  100) 

EC 

(7003) , 

GC 

TC 

56 

IF 

(  100) 

EQ 

(7006), 

GO 

TC 

56 

IF 

(  100) 

EQ 

(7005), 

GC 

TC 

58 

IF 

(IOD) 

EQ 

(7200) , 

GC 

TC 

60 

IF 

(  100) 

EC 

(6000), 

GC 

TC 

62 

IF 

( kOCI 

EQ 

(7600), 

GO 

TC 

66 

IF 

(  IDO) 

EQ 

(76011, 

GG 

TC 

66 

IF 

(  IOD) 

EC 

(7660) , 

GC 

TC 

68 

IF 

(  100) 

EQ 

(7550) , 

GC 

TC 

70 

IF 

(  100) 

EC 

(7370), 

GO 

TC 

72 

IF 

(  ICO) 

EQ 

(7560) , 

GO 

TC 

76 

IF 

(  100) 

EQ 

( 76C0 ) , 

GC 

TC 

76 

IF 

(  100) 

EC 

(7700), 

GC 

TC 

78 

IF 

(100) 

FC 

(7350), 

GC 

TC 

80 

IF 

(  100) 

EC 

(7355), 

GC 

TC 

82 

IF 

(100) 

EC 

(7800) , 

GC 

TC 

86 

IF 

( 100) 

EQ 

(7801), 

GC 

TC 

86 

FOR  ANT  OTHER  VALUE  OF  IOC,  SKIP  THIS  RECORD 
GO  TO  10 

CALL  ACTVTT  ( I  VI > 

GO  TC  1C 

CALL  EGA! AC  (IVl) 

GC  TC  10 

CALL  PRSNIL  (IVl,  IV2,  IV3) 

GO  TO  1C 

CALL  EQUIP  (IVl,  I V 2 1 
GO  TO  1C 

CALL  SPARES  (IVl,  (V2) 

GO  TO  1C 

CALL  ARRIV  (IVl,  MOOR) 

GO  TO  10 

CALL  DEPART  (IVl,  MOOR) 

GO  TO  1C 
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M  CALL  NEXT AC  1 1 VI,  IV3,  IACCR) 

CO  TO  1C 

4*  CALL  READY  UV3I 

CO  TO  1C 

4*  CALL  ASINPR  UV1»  IV3> 

GO  TO  1C 

7C  CALL  RLESPR  <  I  Vi ,  IV3,  1AOOR) 

GO  TO  1C 

12  CALL  ASlftEC  ( I VI »  I V3) 

GO  TO  1C 

1*  CALL  RLESEQ  ( I VI •  1 V 3 ) 

GO  TO  1C 

7*  CALL  FAIL  ( I v3 ) 

GO  TO  1C 

7®  CALL  RESTOR  UV3) 

GO  TO  1C 

8C  CALL  SPAVL  UV11 

GO  TO  1C 

®2  CALL  1NSPG  I1V1»  I V2) 

GO  TO  1C 

*4  CALL  SPRET  UV11 

GO  TO  10 

8*  CALL  LVSPQ  UV1#  1AD0R) 

GO  TO  10 
END 


♦IBFTC  PAELIP 

SUBROUTINE  PRELIP 

C  . initialize  SCPE  SY STEP  VARIABLES 

LET  ENOPO  •  PERCO 
LET  ENOSH  »  LENSH 
LIT  CURSH  •  1 

C  . H*1™*  TC  A  VERY  LARGE  NUMBER 

00  TO  20 •  FOR  EACH  SHOP  | 

LET  NNRTIII  •  1QC0C. 

LET  TRNRT11)  «  ICOOO. 

2C  LOOP 

RETURN 

ENO 


nr  nn 
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♦IBFIC  CLOCK 


SUBROUTINE  CLOCK 

. . THIS  ROUTINE  KEEPS  TRACK  CF  TIKE*  ENC-OF-PFR IOC,  ANC  ENC-Of 

.  SHIFT.  'TIPE*  IS  THE  ACTUAL  WCRK-T  IPE  ELAPSEC  SINCE 

.  THE  BEGINNING  CF  SIPuLATICN,  WHEREAS  *RT  IKE'  IS  THE 

.  CURRENT  SIPLLATEO  TIPE. 

2C  LET  T  *  APIN1  (RTIPE ,  ENOSH,  ENCPCI 

C  . UPDATE  TIPE  IF  SCPE  WCRK-T I  PE  HAS  ELAPSEC,  TEAT  IS,  IF  THIS 

C  .  IS  A  WORKING  SHIFT 

IF  (SCHEO(CURSH))  EC  (I),  LET  TIPE  *  TIPE  ♦  T  -  STINE 

C  . UPDATE  STIPE 

LET  STIPE  »  T 

IF  (RTIPE)  £Q  (T),  GC  TC  100 

C  . UPDATE  THE  NO.  CF  PAK-OAYS  (CCTV I  FCR  EACH  PERSONNEL  TYPE  I 

DO  TO  40,  FCR  EACH  PTVPE  I 

ACCUPULATE  QTYPRi  I  ,CURSH)  INTO  CCTV  III  SINCE  TQTYUt 
4C  LOOP 

C  . THERE  IS  AN  END-CF-SHIFT  ANO/CR  AN  ENC-CF-PER  IOC.  CETERHINE 

C  .  WHICH  CAPE  FIRST. 

IF  (ENOSH)  LE  (ENCPO),  GC  TO  BO 

C  . END-OF-PER 100 

CALL  END PRD 
GO  TO  20 

C  . ENO-OF-SHIFT.  UPDATE  CURSP  AND  ENOSH. 

SC  LET  CURSH  •  POO  (CURSH,  N SHIFT )  ♦  1 

LET  ENOSH  •  ENOSH  ♦  LEASH 
GO  TO  20 
ICC  RETURN 

ENO 


• IBFIC  ENOPRO 


SUBROUTINE  ENOPRO 

C  . ENO  OF  A  REPORT  PERIOD. 

C  . COMPITE  CURP  ANO  CURPO. 

LET  S  •  STIPE 

LET  CURP  •  S  -  ETIPE 

LET  ETIPE  •  S 

LET  CURPO  •  TIPE  -  PTIPE 

LEI  P1IPI  *  TIPE 

C  . If  NO  WORK-TIPE  HAS  ELAPSEC,  BCN*T  OUTPUT  ANYTHING 

IF  (CURPO)  EQ  <0. ) •  GC  TC  100 
C  . OUTPUT  THE  REPORTS  FOR  THIS  PfRIOO 


CAU  0UT1 
CALL  0LT2 
CALL  OUT! 

CAU  0UT4 
CALL  OUTS 

LET  ENOPO  ■  ENOPO  ♦  PERCO 
ICC  RETURN 

ENO 
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•IBFTC  ACTVTV 

SUBROUTINE  ACTVTV  « I ACKCI 

C  . THIS  ROUTINE  IS  CALLED  WHEN  10  0  7000.  (AT  BEGINNING  OF  RUN) 

IF  (IACNO)  GR  INACUV),  CALL  ERROR  (4RACTV) 

LET  CURAC  *  IACNC 

RETIRN 

END 


•IBFTC  EQATAC 


SUBROUTINE  ECATAC  IIECKC) 

C  ......THIS  ROUTINE  IS  CALLED  NHEN  ICC-7002.  (AT  BEGINNING  OF  RUN) 

IF  ( IEGNO)  GR  (NETVPE)t  CALL  ERROR  (4HECAT I 
C  . SAVE  ACTIVITY  RUBBERS  FCR  REPORT  NO.  4 


CREATE  DUBBY  CALLED  ITER 
LET  ACNO(ITER)  •  CURAC 
FILE  ITER  IN  SETIIECNO) 
RE  URN 
END 


* IBFTC  PRSNEL  i 

SUBROUTINE  PRSNEL  IIPERNC,  ICTY,  ISHIFT)  } 

U  . THIS  ROUTINE  IS  CALLED  NHEN  10  0  7001.  (AT  BEGINNING  OF  RUN)  j 

IF  (IPERNU)  GR  1NPTVPE),  CALL  ERROR  (4HPRSNI  I 

LET  QTVS(IPERNO)  ■  CTVSI1PFRNC)  ♦  ICTY  | 

LET  QTYPR( IPERNOtl SHIFT)  «  ICTY  \ 

RETURN  j 

FNO 


•IBFTC  EQUIP 

SUBROUTINE  EQUIP  (lECNCt  ICTY) 

C  . THIS  ROUTINE  IS  CAILEO  WHEN  IDC-7004.  (AT  BEGINNING  OF  RUN) 

IF  (IECNOI  GR  (RETYPE) •  CALL  ERROR  (4RECUI) 

LET  QTYE ( tEQNC)  •  ICTY 

RETURN 

END 
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♦IBFTC  SPARES 

SUBROUTINE  SPARES  (ISPNC,  1 0 TV  ) 

C  . THIS  ROUTINE  IS  CAILFO  HHEA  IC0«7OO5.  (AT  BEG  INN  INC  CF  RUN  I 

IE  (iSPNCI  GR  ( ASPTVP) *  CAU  EPRCR  (AESPAR) 

LET  GTVSPflSPNCI  «  ICTY 

RETURN 

END 


•IBFTC  ARRIV 


SUBROUTINE  ARRIV  (1REPAC*  ICI 
C  . IMIS  ROUTINE  IS  CAUEO  NHEN  IC07200. 

C  . A  REP  HAS  ENTERED  THE  SVSTEP.  CREATE  A  TEMPORARY  RECORD  FOR 

C  .  IT*  FILE  IT  INTO  THE  APPROPRIATE  CEPOT,  ANO  UPCATE  THE 

C  .  STATISTICS  FOR  THIS  OEPCT. 


CREATE  REP 

LET  BTIPE(REP)  «  RTIPE 

LET  IDNO(RFP)  •  10 

LET  I  SHOP  «  SHPNOI IREPNC) 

LET  NEkRIP  -  RIPIISHCPI  ♦  I 

LET  RIPUSHOP)  *  NEWRIP 

LET  RINIISHOPI  •  RINUSHGPI  ♦  I 

LET  HAXRf I  SHOP  I  -  PAXO  (NEMRIP*  PAXRIISHCPII 

LET  FRIP  •  NEfcRIP 

LET  RIPS! I  SHOP)  -  R1PSIISHCPI  ♦  FRIP 

LET  RIPSG(ISHOP)  ■  RIPSGIISHCPI  ♦  FRIP**2 

FILE  REP  IN  LOAOI I  SHOP  I 

RETURN 

END 


o  n 
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•IBFTC  DEPART 

SLBROUIRE  DEPART  (IREPAC,  IC) 

. THIS  ROUIRE  IS  CALLED  WHEN  ICC-600C. 

••••••A  REP  HAS  LEFT  THE  SVSTEP.  REPCVE  ARC  CESTRL *  IT. 

LET  I  SHOP  •  SMPRCI IREPRC ) 

FINO  FIRST  REP,  FCR  EACH  REP  IR  LCAC(ISHCP),  WITH 
•  ( IONCIREP) )EQ( ID) *  WHERE  REP*  IF  ACRE*  CALL  ERROR  ( AHDEPA 

REMOVE  REP  FROM  LCADI1SHCPI 
LET  REWRIP  *  RIPIISHCP)  -  1 
LET  RIPIISHCP)  -  REWRIP 
LET  ROLTIISHCP)  »  RCUTIISHCP)  ♦  1 
LFT  PIRRI I  SHOP)  >  PIRO  (REWRIP,  PINR(ISHCP)) 

LET  FRIP  ■  REWRIP 

LEI  RIPS! I  SHOP)  ■  RIPSIISHCP)  ♦  FRIP 
LET  R1PSGIISHCP)  «  RIPSCIISHCP)  ♦  FRIP**2 
LET  REPTIP  *  RT1PE  -  BTIPEIREP) 

LET  PXRT( I  SHOP)  •  APAXi  (REPTIP*  PXRT(ISHOP)) 

LET  PRRH I  SHOP)  •  AP1RI  (REPTIP,  PARTIISHOP)) 

LET  R  T  S( I  SHOP)  •  RTSIISHCP)  ♦  REPTIP 
LET  RTSQI I  SHOP)  •  RTSDISHCP)  ♦  REPTIP*»2 
CESTROV  REP 
RETLRR 
ERO 


♦I8FTC  REXTAC 


SORROLIIRE  REXTAC  (IREPRC*  IACRC*  ICREP) 

C  ......THIS  ROLI I  RE  IS  CALLEO  WHER  ICC»7A00. 

C  ...... A  REP  IS  SLBPITTEO  ICR  RE-SUfPIVTEC )  TC  THIS  ACTIVITY. 

LET  CLRAC  •  IACRC 

C  ......00  R01HIRG  IF  ACTIVITY  -  0  I RECE IV IAG  ) . 

IF  IIACRO)  EC  (0),  GC  TC  SO 
LIT  COREP  •  IORCP 

C  . FIRO  THE  REP  BY  SEARCH IRC  THE  LCAO  CF  THE  APPROPRIATE  DEPOT 

FIRO  FIRST  REP*  FOR  EACH  REP  IA  LCACISHPROI  IREPRC )  I*  WITH 

•  (lORC(REP)l  EC  ( IDREPI *  WHERE  REP,  IF  ROHE*  CALL 

*  ERROR  IAHREXT) 

LET  X  •  OFLAGIREPI 

C  . IF  QFLAG  ECUALS  THE  ACT.  AC. .  THIS  RIP  IS  ALRIAOV  IN  THE 

C  .  CLUE  FOR  THIS  ACTIVITY,  SC  DC  RCTFING. 

IF  (X)  FC  (IACRC)*  CO  TC  SC 

C  . IF  REP  IS  ALRIAOV  IR  SCPE  CTHER  CUEUE*  THIS  IS  AN  ERRCR • 

IF  IX)  RE  TO)*  CALL  ERRCR  (AHRIX2) 

C  . IF  OFLAG  •  0*  FILE  IT  ! ATC  THE  CUEUf  FOR  THIS  ACTIVITY. 

LIT  QFLACIREP)  ■  IACRC 

ACC  QSIA(IACNO)  INTO  CGSIA(IACRC)  SIRCF  TGS2AI IACRO).  ADO  I 
LEV  MROSAI IACRO)  •  APAXI  I  CSV A I  ( ACRC  )*  PXCSAI IACRO )  I 
LEV  GTIPCIREP)  *•  VIPE 
FILE  REP  IR  ACVCI IACRC) 

SC  AEVLRR 

ERO 


o  r*  o  o 
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•IBFTC  ASINPR 


SUBROUTINE  ASINPR  UPERNC,  ICTY) 

C  . THIS  ROLTINE  IS  CALLED  WHEN  ICC-746C. 

C  . ASSIGN  PERSONNEL  TC  AN  ACTIVITY. 


LET  Q  >  IOTY 
LET  R  »  RTIRE 
LET  IACNO  *  CURAC 

IF  (IACNO)  EQ  (O*  CALL  ERRCR  I4HASPR ) 

......IF  THIS  IS  THE  FIRST  T I  PE  (CURING  THIS  REPORT  PERIOD)  TMT 

.  PERSONNEL  CF  THIS  TYPE  HAVE  BEEN  ASSIGNED  TO  THIS 

.  ACTIVITY*  CREATE  A  NEW  ENTRY  ANC  FILE  IT  INTO  LIST  FOR 

.  THIS  PERSONNEL  NC.  IN  ANY  CASE*  TARE  STATISTICS. 

FINO  FIRST.  FOR  EACH  ENTRY  CF  L  1ST  I IPIRNO*  WITH 
♦  ( ACNC( ENTRY ) )  EC  IIACNC),  WHERE  ENTRY,  IF  NONE*  GO  TO  ?C 

LET  ;i  *  WRING! ENTRY ) 

LET  CWRNGt  ENTRY)  >  CNKNG I  ENTRY )  ♦  W  ♦  ( R-TWRNG ( ENTRY  ) ) 

LET  WKINGIENTRY)  «  W  ♦  C 
GO  TO  SC 

2C  CREATE  ENTRY 

LET  ACNO(ENTRV)  •  IACNC 
LET  WK (NC i ENTRY)  *  C 
FILE  ENTRY  IN  LIST(IPIRNC) 

SC  LET  TWKNGI ENTRY )  ■  R 

RE1LRN 
END 


♦  IBFTC  READY 

SLHROLJINE  READY  (IACNC) 


C  . THIS  ROLTINE  IS  CALLEO  WHEN  ICC-T401. 

C  . THIS  REP  IS  REAOY  TC  BE  WCRKEC  CN.  REROVE  IT  FRON  QLEtE  FOR 

C  .  This  ACTIVITY,  ANO  TAKE  STATISTICS. 


ACC  QSEAI  (ACNO)  IMC  CCS2AI I  ACNC)  SINCE  TCSI A I  I ACNC  » ,  ACC  -1 
IF  ( CSZAI I  ACNC) )  LF  t-l.l,  CALL  ERRCR  I4MEAO 
FINO  FIRST,  NCR  EACH  REP  IN  ACTC(IACNO),  WITF  (ICNO(REP))  F 
ICLREP),  WHERE  REP*  IF  NCNE*  CALL  ERRCR  (4FrtEA?) 

RENOVE  REP  FROR  ACTCI IACNC) 

LET  RNCSAIIACNC)  •  AR|N)  I CS ?A ( I ACNC  )  •  RNCS A  I  IACNC  )  I 
LEI  TIACS(IACNC)  •  TMCSIIACNf)  ♦  TIRE  -  UT  IRE  (REP ) 

LFT  AQOLTI I  ACNC  I  •  AGOUTI IACNCI  ♦  l 
LET  OFLAGIREP)  •  0 
RE  URN 
ENO 


•  IBFTC  RLTSPR 

SUBROUTINE  RLESPR  UPERNC.  ICTY,  IACNCI 

C  . THIS  ROUTINE  IS  CAILEO  WHEN  101*7550. 

f.  . . PERSCNNEL  HAVE  BEEN  RELEASEC  FRCP  THIS  ACTIVITY.  TAKE 

v  ......  STATISTICS. 

FINO  FIRST.  FOR  EACH  ENTRY  CF  LIST ( IPERNC).  WITH 

*  (ACNCIENTR VI)  EC  IIACNCI.  KHERE  ENTRY.  IF  NONE.  CALL 

•  ERROR  IAHRLPR) 

LET  k  •  kX ING( ENTRY  I 
LET  R  •  RTIPE 

LET  CkKNG(CNTRV)  *  CMKNG I  ENT  RY I  ♦  U  •  (R-TWKNGIENTRY  I  ) 

LET  TkKNG(ENTRV)  *  R 

LET  kK ING( ENTRY  I  *  k  -  FLCAT ( I GTY I 

RETURN 

ENO 


•IBFTC  ASINEti 

SUBROUTINE  ASINEC  ItECNC.  ICTYI 
C  ......THIS  ROUTINE  IS  CALLED  WHEN  ICC*7370. 

C  . ASSIGN  ECUIPPENT. 

ACCUMULATE  INUSEUEQNCI  INTO  CINUS(IECNC)  SINCE 
•  TINUSI IEONO) .  AGO  FLCAT ( ICTY  I 

RETURN 
ENO 


•  IBFTC  RLE  SEC 


SUBROUTINE  RLESEC  (IECKC.  ICTY) 

C  . THIS  ROUTINE  IS  CALLEO  WHEN  IOC-7560. 

C  . RELEASE  EQUIPMENT. 

ACCUMULATE  INUSEIIEGNCI  INTC  CIKUSIIiCNC)  SINCE 
•  TINUSI IECNC)  ,  ACD  -FLCAT I  ICTY  t 

IF  I INUSEI IEWNCI )  LE  t-l.l.  CALL  ERROR  IAHRLEU) 

RETURN 

ENO 


r*  <■*>  o 
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•IBFTC  FAIL 


SUBROUTINE  FAIL  IIECNCI 

C  . THIS  ROUTINE  IS  CALLEO  RHEA  IC07600. 

C  . EQUIPPEAT  FAILURE* 

LET  NFAILI IEQNOI  -  NFAILI IFQAC)  ♦  1 
LET  T  -  RUNE 

LE  7  CDORNI  1ECNC)  •  COGNAUECAC)  ♦  CChMIEGNC)  * 

*  (T  -  TCCWNi  IEQNOI) 

LFT  TDOAN1  IECAC >  *  T 
LET  OOteM  IEQNOI  >  OONAUEUACI  ♦  l. 

RETURN 

ENO 


•IBFTC  RESTOR 


SUBROUTINE  RESTCR  « I ECKC ) 

C  . . THIS  ROUTINE  IS  CALLEO  NHEN  ICC*i700. 

C  . EQUIPMENT  RESTORED. 

LET  T  «  RTIPE 

LET  COGfcM  IEGNCI  -  COCWMIECAC)  ♦  CCNMIECNO)  * 

•  IT  -  TCCteNI  IFQNG  )  > 

LET  TDOWNI  IEQNC)  «  T 
LET  DOAN{ IEQNC)  *  OChAIIlCAC)  *  1. 

IF  tOGhM  JEQNC) )  LF  (-1.1*  CALL  ERROR  (AERESTI 

RETURN 

FNO 


•  IBFTC  SPAVL 

SUBROUTINE  SPAVL  I  IS  PNC  > 

...... .THIS  ROUTINE  IS  CALLEO  NHE  A  ICC-7350. 

••«*•• THERE  IS  A  OEPAAO  FOR  A  SPARE.  THE  SPARE  IS  AVAILABLE*  SO 
......  THE  DEPAKO  IS  IPPECIATELV  FILLED. 

LET  OMANDUSPNCt  *  DPANOUSPNOI  ♦  I 
LET  FILL(ISPNC)  *  FULUSFNC)  *  1 

LET  PXQSPI  I  SPNC)  >  APAX1  ICSPI  ISPNC  )♦!•*  HKGSPUSPNOIJ 
RETURN 
ENO 


•280 


*  18F  1C  INSPC 


SUBROUTINE  INSPC  (ISPNC,  IREPNCI 

C  . THIS  ROUTINE  1$  CALLED  UHEK  IOC-7355. 

C  . THERE  IS  A  DEMND  FCR  AK  UNAVAILABLE  SPARE  PART. 

FIND  FIRST*  FOR  EACH  REP  IK  LC  AC  (SHPKC  ( I  RE  PNC  I  )*  MITE 

•  I IOKCI REP) l  EC  ICUREPI »  WHERE  REP*  IF  NONE*  CALL 

•  ERROR  I4HINSP ) 

LET  S  «  SFLAG(REP) 

C  ......IF  SFLAG  *  SPARE  PART  KC.*  THIS  REP  IS  ALREACY  IN  QUEUE  FOR 

C  .  THIS  PART*  SC  DC  KCTHIKG. 

IF  I S I  EC  (ISPNCI*  GO  TC  50 

C  . IF  REP  IS  ALRCAOV  IK  QUEUE  FCR  A  DIFFERENT  PART*  CALL  ERROR 

IF  (S)  NE  (0)«  CALL  ERRCP  (4HINS2 I 
C  . IF  SFLAG  «  0,  PUT  IT  IN  CUEUE  FCR  THIS  SPARE  PART  NO. 


LFT  SFLAG! HEPi  »  ISPNC 

LET  ONANOI I SPNO )  «  OPANDI ISPNCI  ♦  1 

ACC  QSPUSPNG)  I N TC  CCSPUSPNO  SINCE  TCSPUSPNO)*  ACC  I. 
LET  PXQSPUSPRCI  «  APAXl  (CSPUSPNOI*  HXGSP(ISPNO)) 

LET  SPTIPIREPI  «  TINE 
5C  RETURN 

ENO 


•  IRFTC  SPRfT 


SUBROUTINE  SPRET  IISPNCI 

C  . IHIS  ROUTINE  IS  CALLEO  WHEN  ICC-7800. 

C  . (ALL  WE  NEED  FRCP  THIS  LAEEL  RECORD  IS  THE  SPARE  PART  NO.) 


LET  CURSP  «  ISPNC 

RETURN 

ENO 


•IBFTt  LVSPC 


SUBROUTINE  LVSPC  (IREPNC*  ICREP) 

C  ......THIS  ROUTINE  IS  CALLED  WHEN  ICC-7801. 

C  . A  SPARE  PART  IS  AVAILABLE. 

C  . IF  NO  REP  WAS  WAITING  FCR  THIS  PART*  CO  NOTHING. 

IF  (IOREPI  EG  (01.  GC  TC  50 

C  . .TAKE  THIS  REP  CUT  CF  THE  CUEUE  FOR  THIS  SPARE  PART. 

LET  I SPNO  «  CURSP 


LET  FILL! I SPNCI  •  FILL(ISPNC)  ♦  l 

ACC  CSPUSPNOI  INTO  CCSPUSPNO  SINCE  TQSPUSPNOI*  ADC  <1. 
IF  (QSPUSPNCII  IE  (-1.1*  CALL  ERROR  (AHLVSPI 
LET  NNQSPUSPNCI  -  ANINl  (CSPUSPNOI*  PNGSPUSPNOU 
FINO  FIRST*  FOR  CACH  REP  IN  IL AQISHPRC ( IREPNC 1 1 .  WITH 

•  I lONO(REP) I  EC  (IOREPI,  WHERE  REP*  IF  NONE*  CALL 

•  ERROR  (4HLVS2I 

LET  !  I  SCSI  I  SPNCI  «  TISCSUSPNCI  ♦  TIPE  -  SPTIPIREPI 
LET  SFLAG(REP)  «  0 
SC  RETURN 

ENO 


281 


* I8FTC  OUT  1 

SUBROLTINE  OU1 

C  ......GENERATE  A  'TABLE  1'  REPCRT  FCR  EACH  CEPCT. 

00  TO  ICC,  FOR  EACH  SHCP  1 
LEI  t R IN  «  RIM  I  I 
LET  IRCUT  «  ROUTII) 

LET  FROLT  «  IRCLI 
LET  FRTS  »  RTSUI 
LET  FRTSG  *  RTSCd) 

LET  IR IP  «•  RIPd  ) 

LET  FRIP  «  TRIP 

LET  ITRIN  *  TRIMI)  ♦  IRIA 

LET  TRIM  I)  *  ITRIN 

LET  ITROLT  =  TROt/TII)  ♦  IRCUT 

LET  IRCLT(I)  *  I T  RELIT 

LET  FTRCLT  *  I7RCUT 

LET  TOTAL  -  IR  ♦  IRCUT  ♦  l 

CALL  STDOEV  (TOTAL*  Rl  PS  <  I  >  •  RIPSCd),  *AVN,  *STCVN) 
IF  (IROLTI  EC  (G),  LET  PART  d )  «  0. 

CALL  STOOEV  (FRCUT «  FRTS,  FRTSC,  *AVT,  *STOVT) 

LET  FTRTS  «  TR IS «  I )  ♦  FRTS 
LEI  TRTSIII  «  FTRTS 
LET  F TR T SC  «  TRTSC(I)  ♦  FRTSC 
LET  IRI.SC(I)  «  FTRTSC 

CALL  STOOEV  (FTROUT *  FTRTS,  FTRTSC,  *T  AVT ,  *TSTOVT) 

IF  (ITROLT)  EQ  (C),  GO  TC  60 

LET  TPXRTm  »  APAX1  (PXRT(I),  TPXRT.d) 

LET  FTPAfti  «  APIM  (PNRT(I),  TPNRT(D) 

LET  TPNRTd)  "  F  TPNRT 
GO  TO  80 


6C  LET  FTPNRT  «  0. 

DC  CALL  TAB1  (I,  AVA*  STOVN,  AVT •  STCVT,  T AVT c  FTPNRT, 

C  . RESET  VARIABLES  FOR  NEXT  REPORT  PERICC. 


LET  AIM  1 1  >  C 

LET  ROLT(I)  -  0 

LET  PAXR(I)  -  (RIP 

LET  PINRItl  «  IR IP 

LET  RIPSU)  •  FRIP 

LET  RIPSCd)  •  FRIP  *  FRIP 

LET  RTSd)  »  0. 

LET  R T SC II)  »  0. 

LET  PXRT(I)  -  0. 

LET  MNRTd)  -  LCCOO. 

ICC  LOOP 

RETLRN 

ENO 


TSTOVT) 


•2«2 


OIBFTC  STDDEV 


SUBROUTINE  STDDEV  (TOTAL,  SUN,  SUNSC,  AVG,  STCV) 

C  ......ROUTINE  TO  CONFUTE  A  PEAK  ANC  STANCARC  DEVIATION. 

IF  (TOTAL)  LE  (C.l,  GO  TC  50 
LET  AVG  «  SUN  /  TOTAL 

LET  STOV  «  SORT (AN^XI ( SUNS C/ TOTAL  -  AVG* AVG*  0.)) 
GO  TO  ICO 

5C  LET  AVG  *  C. 

LET  STOV  «  0. 

ICC  RETLRN 

ENO 


283 


♦  I BMC  TAB! 

REPORT  TAB  1  (I*  AVN e  STDVN •  AVT.  STCVT,  TAVTt  FTMNRTt  TSTHVT) 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

END 

T  A 
I 


AH  TORES,  IN-PROCESS 

• 

CYCLE  TINES 

DATA  FOR  PER IOO  ENDING  DAY  AA.AAA 

ENUPO 

’  IOO 

•  •#  TO 

DATE  A«« 

R INI  1 1 

TRIM  I ) 

PERIOD 

•  A.  TO 

OATE  AAA 

ItOLTI  I  | 

TRCLTIII 

NUMBER  IN 

PROCESS 

A* 

RIPII) 

MAX 

MIN 

STO  OEV 

AA 

A 

A.AA 

MAXRIII 

M1NRIII 

STOVN 

AA.AA 

A#  AA 

A.AA 

MXRTIII 

MNRTII) 

STOVT 

M.M 

a.aa 

A.AA 

IMXRTUI 

FTMNRT 

TSTOVT 

ENO 


L'EP' 

SYSTEM  ARRIVALS.  OEi 
ANT  REPAIR 


RE  PARABLES  ENTERING  CEPOT  THS  t 
SERVICEABLES  CEPARTING  DEPOT  THI 


AVG 

REPARABLES  IN  PROCESS 

REPAIR  TIPE 

AA.AA 

AVN 

IMS  PERIGO 

A.aa 

AVT 

TC  CATE 

A.AA 

TAVT 

I 


264. 


♦  I8FTC  OUT? 


*>C 


ICC 


SINCE  tcszaui 


SLBROL TINE  OUT? 

.GENERATE  TABLE  2. 

LET  C  -  CURPD 

DO  TO  5C*  FOR  EACH  ACTIV  ! 

ACCIPLLATE  OSZAI I )  INTC  CCSZA(t) 

LET  AVCSAI I I  «  CCSZA 1 1 I  /  C 
IE  ( AGOUTI  MI  EC  «C  I  •  GC  TC  *>C 

LET  AVTAOIM  *  DECHRITIACSim  /  ELCAT  I ACOUT  1 1  I  > 
LOOP 

CALL  TA82 

DO  TO  ICC*  FOR  EACH  ACT t V  I 
LET  CQSZAI I I  *  C. 

LET  1IACSII)  -  0. 

LET  FUS7A  »  CSZAIIJ 

LET  PXCSAI I )  *  FCSZA 

LET  PNQSAII)  *  FCSZA 

LET  AQCLIUI  «  0 

LCOP 

RETURN 

END 


•  I  BE 


TC  TAB2 
REPORT 


TAP? 


ACTIVITY  QU 

FOR  PER  100 

NO.  OF 

REPS 

ACT. 

NC. 

AVG 

PAX 

*• 

♦*, 

A 

1 

AVUSAt I 1 

PxgSA 

FOR  FACH  ACT  IV  I*  Ml TM 


IPXCSAim 

END 


GR  10. I 


LEING  FACTORS 
LSI  COMPLETED 
IN  QUEUE 

AVG  QUEUE  TIME 
PIN  I  IN  MCRK'HOURS) 

II  PNQSAfl)  AVTAOIII 


i 

12 


FKO 
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•  IBFTC  oun 


SUBROUTINE  01 T 3 

C  . GENERATE  TABLE  3. 

C  . BEGIN  BY  WRITING  THE  HEADING. 

CALL  TB3HE0 
LET  S  »  STINE 

0(1  TO  ICC*  FCR  EACH  PTYPE  I*  WITH  (CTYS(I)I  CR  (Cl 
LET  SUN  ■  0. 

1C  DO  TO  20,  FOR  EACH  ENTRY  CF  LISTIII 

C  ......BRING  'CNKNGIENTRYI  •  LiF  TC  DATE  BEFORE  ACCINC  IT  INTC  SlJN . 

LET  C  »  CWRNG(ENTRY)  ♦  NR  I NG (ENTRY  )  •  (S-TWKNGI ENTRY  1 1 
LET  CNKNG( ENTRY  I  *  C 
LET  SDN  •  SUP  ♦  C 
2C  REPEAT  1C 

LET  DHL  «  SDN  /  CCTYdl 
CALL  TB3LIN  (I,  UTIL) 

LET  CQTV(| I  •  0. 

C  . ENPTY  CDT  EACH  'LIST*  SET. 

3C  00  TO  50 *  FOR  EACH  ENTRY  CF  LISTdl 

RTNOVE  ENTRY  F«CN  LISTdl 
DESTROY  ENTRY 
SC  REPEAT  3C 

ICC  LOOP 

RETURN 

END 


•  IBFTC  TB3MED 

REPORT  TB3HED 


WCRR  TINE 
AT  ACTIVITY 


PERS 

UTIL 

PAN- 

PAN- 

PAN- 

TYPE 

0 f Y  FACT 

NO  HCURS 

END 

NC  HCURS 

NC  HCURS 

PERSONNEL 


NAN- 
NO  HOURS 


UTILIZATION 


2 


PAN- 

PAN- 

PAN- 

PAN- 

PAN- 

HOURS 

NC  HCURS 

NC  HCURS 
ENO 

'C  HCURS 

NC  HOURS 

•  IBFTC  IB3LIN 

REPORT  1631 I N  II,  UTIL) 

I  •  .•• 

R  I  CTVSIII  LIU 

9  FOR  EACH  ENTRY  CF  LI  ST (II  ,  WITH  (FLISTIIII  NE  (01 

X  ••  4M.M  M  **♦.*♦  M  **•.*•  M  ♦**.* 

K  91 ACNCI ENTRY  I ,OECHR (CWKNG 1  ENTRY  1 1 1 

EM) 


X 

XX 


CNO 


•IBFTC  OUT A 

SLBR0L1INE  0LT4 

C  . GENERATE  TABLE  4. 

CALL  TB4HE0 
LET  CUR  *  CURE 

00  TO  50,  FOR  EACH  ETVPE  I,  WITH  ICTYEd))  GR  (0) 
LET  TOTAL  •  CUR  •  FUAT  (CTVE  1 1) ) 

LET  C  •  CINUSIt) 

LET  LTIL  >  C  /  TOTAL 

LET  FIOLE  •  TOTAL  -  C  -  COCNM I ) 

CALL  TB4LIN  (I*  FIOLE,  UTIL) 

LET  NFAILII)  •  0 
LET  COOWNIII  -  0. 

LET  CINLSII)  -  0. 

9C  LOOP 

RETURN 

ENO 


•IBFTC  TBAHfU 

REPORT  TB4HE0 

I  CQUIPPENT 

X  CQLIPPENT  TIPI  I OLE  00 WN 

«  TYPE  QUANTITY  IN  USE  TINE  TINE  f 

CNO 

I 

ACTIVITY  NCS. 

WHERE  USED 

CNN 


TIL IIAT  ION 

0.  OP  UTILIIAf ION 

ILURCS  FACTOR 


I 


•207 


•IBFTC  TBALIN 

REPORT  TB4LIN  II,  F  (OLE »  UTIL) 

X  ♦♦  M 


FOR  EACH 


i  cmm 

ITEP  OF  SET ( 1 ) 


X 


X 


END 


*♦.♦*  »*.**  *•.** 

CINUSU)  FICLE  CCONNII) 


♦  *.M* 

NFAIH!)  LTIL 


X 

XX 


12 1 ACNG ( ITEP)) 
ERO 


•  IBFTC  OUTS 

SUBROUTINE  OUTS 

C  . GENERATE  TABLE  5. 

LET  C  *  CURED 

DO  TO  50.  FOR  EACH  SPTYP  I 

ACCLPULATE  QSPII)  INTO  CCSPCI)  SINCE  TCSP(I) 

LET  AVGSPII)  *  CCSPU)  /  C 
IF  (FILLII))  EC  10),  CC  TC  50 

LET  AVTSQ(I)  -  OECHR I T I  SCSI!) I  t  FLOAT  IF  ILL  1 1 ) ) 
5C  LOOP 

CALL  TABS 

00  TC  100,  FCR  EACH  SPTYP  I 
LET  CQSPtl)  •  0. 

LEI  T  t  SCSI  t  A  -  C. 

LET  FQSP  •  OSPII) 

LEI  PMCSPII)  •  FCSP 
LET  PNCSPII)  •  FCSP 
LET  OMANOIII  •  C 
LET  FILLII)  •  0 
ICC  LOOP 

RETURN 

ENO 


V208- 


♦  IPF  1C  TA85 

REPORT  TABS 

> 

I 

X 

X 

X 

X 

X 


CUEUEING  FACTORS  HV 
reparable  cueue  length 


CCPPCNENT 

TYPE 

A 

f 


X  FCR  EACH  SPTVP  |»  N I  TH  UTVSP(tl)  CR  (01 

ENO 

C0PP0NHNT  SPARES  1YPE 
AFO  IIPES  BY  CCPPCKEM  S 
NC.  OF  REPS  IN  GUELE 


CO ANT  I  TV 

AA 

CTYSPin 


OEPANOS 
THIS  PER  ICC 

A  A 

CNANCt  I  )  A  VO  SI 


AVt 

•  .AA 

I  I  ) 


AA. 

pxospi  1 1 


PIN 

PNC SP( I  I 


AVG  COCLt  TIPE 
UN  NCRR-HCORS) 

AA.  AA 

AVTSCII  ) 


•IBFTC  ERROR 

SLBRTLT INF  ERRCR  (NAPE) 
CALL  ERRIPT  (NAPE) 

CALL  SNAP  (AHFRCR) 

STOP 

END 


♦IBEIC  ERRIPT 

REPORT  ERREPT  (NAPE) 

*  JC8  TERRI NATEO  AT  T|PE 

I 

X 


••.•AA  BECAUSE  CF  ERROR 
RTCPE 

ENO 


IN  SUBROUTINE  '• 
N 

(ABRR 


M* 

PE 

YIATIONI 

ENO 


•IBP  1C  SNAP 

SUBROUTINE  SNAP  (LABEL ) 

CALI  SNP1  (LABEL) 

CALL  SNPf  III.  ECR  EACH  SHCP  I 

RlfLRN 

ENO 


i 
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•18F1C  SNP1 

REPORT  SNPL  (LABEL ) 


RNPE  stipe  PHPfc  rK 

.?;«•••  ,;:••••*  •■••••• 

s"OJ  -  RIN  ROW  IRIK  ,*cu  PARR  PI  AR 

"  f  |  |  ^  ^ 

I  RINIII  sm  rm  _  *  *  •* 


SNAPSKT  R£ytl 

ENCPC  Ci 

*•#*»*« 

ENCPC  C> 

R1PSC  Ml 

**.*  * 


<  «'**■>  Kotrm  trim.,  r.curm  par.,,,  p^,,,  ,“;J  mmJ 


FCR  EACH  SHOP  | 

‘cnvifiEs  —  «i.  cc„ 

S" «  »fm 

EO.  EACH  SPTVP  bl  Ih  ICIYSRU !  I  kf 


TCSIA 

rcs?Acn 


C  (NUS 

TINUS 

♦.* 

c  INUSI  1 1 

T  (KUS 

CSP 

cos 

*.• 

*. 

espm 

CCS 

SFEO  AT  **A* 

LABEL 

IPO  CLAP  c  9 1  h,p 

I  CUISH  cuMc  tuRsp 

•  PC  CMP  ,!:!!**  •  •  • 

5  "tie  mis  nm£L'SH  CuMC  Cu*s* 

!*JI  ***r  ,ptnt  I***? 

»  -f*c««.  MSII.  Risen,  iRisn^sccir:^;;;^;;;  •  - 

TPXRIII,  TPNRTII) 

. . .  accCtu, 


PNQJA 

».» 

pnosaim 


OOMM  COOkN 

I,# 

OOMIII  COOMNfl, 


tesp 

<n  tospii, 


PRQSP 

piespin 


lOCbA 

*.*«#»« 

fOCPA ( | , 

PNOSP 

•NCSPIII 


uses 

MSCSII I 


f  hC 


n 
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• IBP 1C  SHP2 

report  :hp2  ushcpi 

14  FOR  EACH  REP  !N  LOAOUSHCP) 


X 

REPS 

IN  DEPOT  ♦ 

X 

I  OHO 

I  SHOP 

X 

44444 

44444 

44944 

44444 

44444 

44444 

444 

X 

14( IDNC ( RFP) ) 

X 

8  T  IRE 

*,444 

4*444 

4.444 

4.444 

4,444 

4.444 

4  r  4 

X 

14(BTIPE(REP) ) 

X 

CURE 

4.  *44 

4.  444 

4.444 

4.444 

4  .444 

4  .4 

X 

imqiipeirepi) 

X 

CFLAG 

• 

4 

4 

9 

4 

4 

X 

14f  QFIAGIREP ) ) 

END 

X 

i 

• 

*4*9* 

44449 

44444 

44444 

44444 

* 

4.444 

4.44* 

4.444 

4.444 

4.444 

4  .444 

4  .444 

* 

*.4*4 

♦  .**4 

4.444 

4.  444 

4.444 

4.444 

4  .4*4 

* 

* 

* 

4 

4 

4 

4 

* 

2 

END 

4*44 

444444 

END  OEPCT  CAPABILITY  CUTPUT  PROGRAM 

44*4 
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